SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSS YYY YYY SSS LLL 000 000 AAA AAA 
SSS vYY YYY SSS LLL 000 000 AAA ABA 
SSS YYY YYY SSS LLL 000 000 AAA AMA 
SSS yyy yYY SSS LLL 000 000 AAA ABA 
SSS yyy yYY SSS LLL 000 000 AAA AAL 
SSS yyy yYY SSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 A 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS vYY SSS) LLL 000 000 AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSSSSSSSSSSS YYY SSSSSSSSSSSS LLELLLLLLLLLLLLL 000000000 AAA AAR 
SSSSSSSSSSSS vYY SSSSSSSSSSSS LELLLLLLLLLLLLL 000000000 AAA AAA 
SSSSSSSSSSSS yyy SSSSSSSSSSSS LLLLLLLLLLLLLLL 000000000 AAA AAA 
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DD dD SS TT RR RR LL 00 oo CC 
dD dD SS TT RR RR LL 00 oo cc 
DDDDDDDD SSSSSSSS TT RR RR LLLLLLLLLL 000000 
DODDDDDD SSSSSSSS TT RR RR LLLLLLLLLL 000000 
LL IIIT] SSSSSSSS 
LL III] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] $$ 
LL I] Ss 
LL I] SSSSSS 
LL I] SSSSSS 
LL II SS 
LL I] SS 
LL I] SS 
LL II SS 
LLELLLLLLLL HII SSSSSSSS 
LLLLLLLLLL HII] SSSSSSSS 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 


THIS SOFTWARE IS pyrene UNDER A LICENSE AND MAY BE USED AND sonics 
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INCLUSION OF THE ABOVE pda NOTICE. THIS SOFTWARE OR ANY OTHER 
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OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
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FACILITY: Executive, system services and fork level code 


ABSTRACT: 
This module contains routines used to implement distributed 
lock manager functions. 


ENVIRONMENT: Kernel mode, fork level, loadable code 


AUTHOR: Steve Beckhardt, CREATION DATE: 11-Oct-1982 
MODIFIED BY: 


v04-001 spect Steve Beckhardt 6-Sep-1984 
Fixed race condition in pone PE code that could 
yar inetety clobber value blocks. Also fixed bug in 
CVTRETRY_PROC code for locks in RETRY state that are 
ala tnenale not AEE 


v03-023 SRB0140 teye Beckhardt 2-Aug-1984 
Change SRB0136 mh .. ncomplete. Fixed one more place 
to bugcheck this system rather than returning an error. 


v03-022 S$RB0136 Beckhardt Sm Jul 1904 
Changed handling a Bone oyna F sesqurces during failover 
to bugcheck the system with insuff 
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3 : V03-021 $RBO134 Steve eckhargt 26-Jun-1984 
60 ; Simplified message build routine for rebuild lock message 
61 ; to not handle transient SCS states (RSPxxx). This is 
86 3 a result of a corresponding change in the rebuild code 
o7 ; to put all those locks into RETRY state. 
65 ; v03-020 $rB0132 Steve Beckhardt 25-May-1984 
0 96 : Fixed bug where cleanup path from building an LKB error 
0 ? ; didn't decrement parent's sub-RSB reference count. 
$3 : V03-019 $RB0120 Syeve eckhardt 20-Apr-1984 
0; Fixed race conditions in LCKSRCV_RMVDIR code. 
44 4 ; Fixed bug where locks in SCS states were rebuilt incorrectly. 
i ig : v03-018 SRBO119 Steve Beckhardt 2-Apr-1984 
i a ; Added support for waiting for pool. Fixed several bugs. 
909 of : V03-017 $RBO117 Steve Beckhardt 19-Mar-1984 
. 3 f ; Added support for distributed deadlock detection. 
$00 8 : V03-016 SRB0115 Steve Beckhardt 23-Feb-1984 
000 80 ; Added support for maintaining deadlock priority field in 
4 81 ; master-copy locks. Fixed bug in conversion code. 
0900 HE : v03-015 $RB0110 Steve Beckhardt 27-Jan-1984 
00 84 ; Added checking of MEMSEQ of incoming REBLDLOCK messages. 
4 Bg 3 Added checking of rebuild state in message dispatching. 
9000 7; v03-014 $RB0108 Steve Beckhardt 11-Jan-1984 
4 88 ; Added support for new failin/out design with hashed root 
0 89 ; directory. Added support for sending HASHVAL in lock 
000 90 ; messages. Added support for maintaining EPID in locks. 
000 4! ; Changed PMS counters. 
000 38 : v03-013 SRB0106 Steve Beckhardt 6-Dec-1983 
8 94 ; Changed LKBSL_REFCNT,RSBSL_REFCNT, and RSBSL_BLKASTCNT 
32 : to word fields. 
0 39 : v03-012 SRBO104 Steve Beckhardt 17-0c t-1983 
3 4 3 Fixed bug in LCKSSND_BLKING. 
00 100; v03-011 $RB0100 Steve Beckhardt 18-Jul-1983 
8 101 ; Fixed PMS counters. Fixed handling of recety top a lock 
' § ; granted message to handle canceled locks with blocking ASTs. 
104 : v03-010 $RB0097 Steve Beckhardt 23-Jun-1983 
105 ; Added support for RECOVER bit. Made several changes 
1 $ : to suppor multi-node failover. Added support for 
! 3 converting new locks to be system owned. 
1 } : v03-009 SRB0093 Steve Beckhardt 31-May-1983 
19 3 Simplified use of LKB state codes. 
118 : v03-008 S$RB0090 Steve Beckhardt 18-May-1983 
115 ; Added support for extend "9 the lock id. table. Added 
114 ; support for multi-node failover. Added PMS counters. 


4 TRLOCK = Distributed Lock Manager Leadente tae 19°$6h-1 38% 90:33:23 y 


SOoOooooooooooooooo 


GOQOoooooooocooo 


a  — — — — —  —  —s —) — 2s — 2) 2s —) —) 2s 4) —» _ 2 2 2 


SPUN III nononononononononnns = 


AMROODNAMN EWN O OONAU EWN OOONOu 


Fixed bug involving system owne 
for stalti id 


v03-007 SRB0083 Steve Beckhardt 


ng requests during fa 
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| Pane dn Added support 


over. 
20-Apr-1983 


ie shed adding support for TNVVALBLK and CANCEL flags. 
te te conversion code to send messages without RSPIDs 


in some cases. 


V03-006 $RB0077 teve Beckhardt 


Removed use of nth PRCCPY bit. 


v03-005 $RB0073 Steve Beckhardt 


Changed references to CSB to CSID 


14-Apr-1983 


29-Mar-1983 
D in LKB a 


nd R 
Started adding support ey $DEQ flags INVVALBLK and CANCEL. 


V03-004 SRB0069 Steve Beckhardt 


7-Mar-1983 


Changed HALT instructions to BUG_CHECKs. Changed handling 
of value blocks on conversions to return value block on 


conversions to same lock mode. 


v03-003 SRB0063 Steve Beckhardt 
Made a number of bug fixes. 


V03-002 SRB0062 Steve Beckhardt 
Changed BSBW to JSB. 


21-Jan-1983 


11-Jan-1983 
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b 
I 
133 : -SBTTL DECLARATIONS 
128 $ INCLUDE FILES: 
198 3 
12 
128 + MACROS: 
1 
1 § SACBOEF ; ACB offsets 
1 SCADEF : Conditional assembly switches 
154 SCORPDEF ; CORP offsets 
155 SCLSMSGDEF :; Cluster message offsets 
8 1 § SCLUBDEF 3; CLUB offsets 
1 SCSBDEF : CSB offsets 
0 138 SDYNDEF ; Data structure names 
1 SFKBDEF 3; Fork block offsets 
199 SIPLOEF : IPL definitions 
161 SLCKDEF 3; LCK definitions 
0 166 SLKBDEF 3; LKB offsets 
4 16 SPCBDEF 3; PCB offsets 
164 SPRIDEF 3; Priority definitions 
00 165 SPSLDEF : PSL definitions 
B85 196 SRSBDEF 3; RSB offsets 
00 16 SRSNDEF ; Resource numbers 
$333 1 
$000 196 : EQUATED SYMBOLS: 
000 171; 
000 176 
000 174 
000 175 : OWN STORAGE: 
ee 
0000 : 178 -PSECT $$$020 
099 : SEAR RAAT AAA AREA AAA AAA AAA AAA AAAAAAAEAREAAAAAAAAAAAAAAREARAAAAAA Ree 
3 } § ; NOTE: The following assumption is in effect for this entire module. 
a9 1 : ITIITITITITITIIIII ITI TIT ITT TTT titiiiititiiiititiiiiii titi iii iil 
1 
000 186 ASSUME IPLS$_SYNCH EQ IPL$_SCS 
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-SBTTL LCKSDISPATCH = Dispatch incoming lock message 


vou-001 ck 


gee 
; FUNCTIONAL DESCRIPTION: 
This routine dispatches incoming lock manager messages tc 
the epproerie e routine. 3; also verifies that racseteg messages 
are stamped with a membership sequence number that is the same as 
the our cent one on this szeten. If not, the messages are either 
returned with a LKBSK_RETRY response (RSPID messages) or are ignored 
(non=-RSPID messages). 
CALLING SEQUENCE: 
JSB LCKSDISPATCH 
IPL is at IPL$_SYNCH 


INPUT PARAMETERS: 


(called from connection manager received 
message routine) 


R Address of message 

R Address of CSB 

RG Address of PDT 

RS Address of CDRP (if this message needs a response) 
OUTPUT PARAMETERS: 

None 


SIDE EFFECTS: 
RO - R5 destroyed 


LCKSDISPATCH:: 


MOVL CSBSL_CLUB(R3) ,RO 

SUBW3 CLUBS@ MEMSEQ(RO) ,- 
KMSG$Q_MEMSEQ(R25 ,RO 

BLSS $ ; Message is old, ignore or retry 

BGTR 20$ ; MEMSEQ must be in error! 

MOVZBL py 868 _REBLD_STATE .RO 3; Are we in any phase of failover? 


BNEQ $ : Yes 
DISPATCH CLSMSG$B_FUNC (R25 , TYPE=B, PREF IX=LKMSGSK_,- 


; Get address of CLUB 
3; Compare sequence numbers 


>o 
Wo 


er 
MwPeo 


50 00000000' 


<NEWLOCK,LCKSRCV_LOCKREQ>,- 
<GRANTED .LCKSRCV~GRANTED>,- 


New lock request 
Lock granted message 


SIN NIA AAA AAA AAA MANA AIA ITS Be BS BS AAA AA AAI OPOPOPIFONIFONOND 


ANAL WO OD NA NE WIN SO OD NAN EWN 9 OD NAME WN O OD NA UNE AI O OD NOAUS UWI O 


<DEQ, LCK$RCV_DEQS : Dequeue request 
<RMVOIR,LCKSRCV_RAVDIR>,- 3; Remove directory entry 
<BLKING .LCKSRCV_BLKING>,- 3; Lock blocking message 
<CVTLCKM,LCKSRCU_CVTMSG>,- : Convert lock message 
<CVTILCKR,LCKSRCV_CVTREQ>,=- 3; Convert lock req. (needs RSP) 
<TSROST ECKSRCV TIMESTAMP_ROQST>,- ; Time stamp request 
<SRCHDLEK LCKSRCV_SRCHDLCR>,- ‘; Search for deadlock 

<DLCKFND LCKSREV BLCKFND>,=- : Deadlock foun 
<REDO_SRCH,LCKSROV_REDO_SRCH>,- ; Redo deadlock search 


3 no messages allowed in 
3; this state 


35$: DISPATCH CLSMSGS$B_FUNC (R2), TYPE=B, PREF IX=LKMSGSK_,- 
SREBLOLOCK .LCKSACY_LOCKREG>,~ ; Rebuild lock (failover) 
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BUG_CHECK LOCKMGRERR, FATAL ; Illegal function code 
208: BUG_CHECK LOCKMGRERR , FATAL 3; MEMSEQ error 
30$: ; We are in the middle of a membership state change. Dispatch 
; on phase of state change. 
DISPATCH RO, TYPE=B,- 
< 3 $>,- 
$$:22$3- 
> 
BUG_CHECK LOCKMGRERR , FATAL 3; Unrecognized state or 
; BUG_CHECK LOCKMGRERR, FATAL ; Illegal function code 
2 45$: ates CLSMSG$B, FUNC (R2) , TYPE=B, PREF IX=LKMSGSK_,- 
<GRANTED,LCKSRCV_GRANTED>,- ; Lock provees message 
SBLKING LCKSRCV_BLKING>,~ ; Lock Blocking message 


BUG_CHECK LOCKMGRERR, FATAL ; Illegal function code 


50$: 3; Message should either be ignored or returned with LKBSK_RETRY 
; response (the Latter if a RSPID is provided). 


rst CL SASGSL_RSPID CRE) ; Is there a RSPID? 
; Yes 
BRW CNXSDEALL_MSG_BUF_CSB ; No, deallocate message bfr and return 


70$: 3; Send back LKBSK_RETRY response. 
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MOVL CSBSL_CSID(R3) ,R3 3; Get CSID 
BSBW CNXSIRIT CDRP : Initialize CDRP 
MOVB #LKBSK_RETRY,- ; Store retry response 
CORPSL“~VAL2+e(R5) 
MOVAB W*BLD_RSPMSG,- ; Store address of message build routine 
4c AS CORPSC_MSGBLO(RS) 
FF78° 3 BSBW CNXSSERD_MSG_RESP 3; Send message response 
28 5 D MOVL ; Address of SORE 
00000000'GF 1 JMP G*EXESDEANONPAGED ; Deallocate it and return 


elt 


- Distrib 
LCKSSND_C 

1 

1 

1 

1 

1 

91 

91 

4 

1 

91 

91 

91 

91 

91 

91 

091 

91 

91 

91 

bet 

91 

091 

091 

091 

091 

091 

+4 

91 

091 

091 

094 

91 

091 

91 

91 

91 

91 

91 

91 

91 

91 

0000000 91 
00000000'GF 0D +4) 
97 

54 egpogges" F 0097 
4 Ab 1 009 
33 FF58 CF4B 1 =€ 49 
A 

Ad 

Ad 

Ag 

DOA 

FF54° 3 A 
3 28 E9 OQOAC 
A E9 AF 
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-SBTTL LCKSSND_CVTREQ = Send a conversion request to remote system 


oataerzcesnle fate SHES MH:TEE 


+ 
FUNCTIONAL DESCRIPTION: 


This routine handles conversion requests that must be forwarded 
A pe master system for this lock. This system is the process 
ystem. 


CALLING SEQUENCE: 

JMP LCKSSND_CVTREQ (This routine does not return to its 
caller. Rather, it jumps to an 

soereertete destination.) 

IPL must be at IPLS$_SYNCH 


INPUT PARAMETERS: 


R1 Re uested lock mode 
D of destination system 
R6 Eearens of LKB 
R? Old status from LKB 
R8 Address of RSB 
R9 Flags 
R11 Current granted mode 
OUTPUT PARAMETERS: 
RO Completion code (on some exit paths) 


SIDE EFFECTS: 


The process will go into MWAIT until the response from the remote 
system arrives. 
Rl - RS destroyed 


MEAN OOO NAME WI 0 OONOAOU EWN OONAUS W000 
PTR Te TOE Tere Te rere rere rererererererererererererererererere rere rere 
=z 
Ww 


PDP DP AEPR AD Pa BB SB BE BB NII IAAI AI 


-ENABL LSB 

68 LCKSSND_CVTREQ: : 

9 -1F NE CAS “ SURE 

7 INCL G*PASSGL_ENQCVT_OUT 

q ~ENDC ‘ 

74 MOVL G*SCHSGL Ses £1 RG a our PCB address 

75 MOVB R1,LKB$B ROMODE ( te Store requested mode 

id: BBS R1 LEKSCUIRSP. TBLER11), ais’ Branch if response needed 
oe 3; No response needed. Allocate CDRP, store value block (if 

4s 3 + specif ed), and send message. 

1 ASSUME LCKSV_VALBLK EQ 0 

: BSBW CHXSALLOC_ CORP ; Alloc. a CDRP and convert CSID to CSB 
4 BLBC RO £3 : No CORPS or (SID e 

5 BLBC R9,10$ : No value block 


Page (a) 
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A 7D MOVQ RSB$Q_VALBLK(R8),=- 3 Copy value block 
A B ° CORPSC.VALG(RS) ~ 
A 7D 8 MOVa RSBS$Q DALBL KSB (RB) .~ 
40 A corPsC VAL (R5) 
60 A400 10$ MOVL Pcest PID(R4),- ; Store PID in CORP 
48 AS 9 CDRPSC_VAL8(R5) 
34 A BO 9 MOVW tts ROBE (RO). ; Store req. and granted mode in CDRP 
5C A ] CORPSC_VAL9(RS) 
5 D4 8¢ CLRL RO ; Initialize blocking AST flag 
20 A be 9 TSTL LEGSL_BLKASTADR (RG) ; Test for a blocking AST address 
6 ie Fact | RO Sree hocking AST fl 
: Se ockin a 
SE AS 3 3h 15$ MOVB RQ .CDRPSL_VAL9®2(RS) ; Store block ng AST flag 
50 6 99 MOVL R6,R ; Move address of LKB 
OoCc 0 BSBW SENDCVTMSG ; Send message 
084 1 1 BRW CGRNTD_PROC ; Join granted code 
§ 208: ; Send a message and wait for response. 
FF21° 30 5 BSBW CNXSALLOC_WARMCDRP 3; Alloc. a CDRP with RSPID and cvt CSID 
52 $4 E9 00 86 25$: BLBC RO,60$ —~ : No CDRPs or CSID error 
0 2° DO 00 0 MOVL R6,RO : Move address of LKB 
48 AS 4 b? 0 MOVL R4, CORPSL_VAL8(R5) 3; Store PCB address in CDRP 
OOF4 0 00 BSBW SENDCV : Send convert request 
54 48 A5 D0 00 MOVL CDRPSL_VAL8(R5) ,R4 ; Restore address of PCB 


CVT_SCS_WAIT: 
MOVL #RSNS$_SCS,RO 3; Go into MWAIT for resource RSN$_SCS 


CVT_WAIT: 
; Put the process into MWAIT until the response arrives or the 

resource becomes available. Resource number is in RO. 

PCB address is in R4. f this is a system owned lock, 

then the orpcess 8 PID is temporarily stored in 

the LKB. This serves two purposes. First, it allows the process 

to be made executable when the response arrives and secondly, it 

prevents ony other processes from manipulating this lock 

(VERIFYLOCKID will fail) while we wait fer the response. 

Note that the only two conversions that require a response message 
yet will allow a system lock are a CR to CR conversion or a NL to 
L conversion and that these are always synchronously prantadte. 

This also occurs if we go into MWAIT for non-paged pool. 


MOVL PCBSL_PID(R4),- ; Make sure PID is stored in case lock 
LKBSL_PID(R6) 3; is system owned 
ASHL #PSL$7_IPL,- ; Create a PSL on stack with IPL 
3 set to ASTDEL 
JSB G*SCHSRWAIT 3; Wait 


3; Upon reawakening the LKBSB_STATE field tells us what action 
3; to perform. But we first must determine if we are stalling requests. 


SETIPL #IPL$_SYNCH 


60 A4 00 
CA 
1 78 
43 0 
00000000°GF 16 
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00000000'GF 9 TSTB Gg CKSGB_STALLREQS ; Are we stalling? 
1 1 BNEQ 0 3: Yes 
0359 O E 30$: BBC #LCKSV_CVTSYS,R9,33$ :; Branch if not system owned 
OC A6 4 CLRL LKBSL_PID(R6) 3; Clear PID of system owned lock 
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33$: BLSPATEH LKBSB_STATE(R6) , TYPE=B, PREF IX=LKBSK_,- 
<RSPGRANTD,CGRNTD_PROC>,= 
<RSPQUE VTQED-PROC>, = 
OTQ (>,- 
SCS_QAIT>,= 
RY_PROC>,- 


Granted 

Queued 

Not queued 
Spurious wakeup 
Retry 


=-3aAOoog9o 
MoAMMS 
r 


T 


BUG_CHECK LOCKMGRERR ,FATAL ; Invalid lock state 
40$: ; We are stalling some or all lock requests. See which ones. 

BLSS 50$ 
BBC #LKBS$V_PROTECT,- 
LKBSW_STATUS (RO) ,30$ 
50$: MOVL #RSNS-CLUSTRAN,RO Resource to wait for 

BRB CVT_WAIT Go into MWAIT for RSN$_CLUSTRAN 
Either no memory or CSID to CSB conversion failed with 


; SS$_NOSUCHNODE. Note that if we wait, system owned locks 
3; must have a non-zero PID. 


CMPW 52, 0658, INGP REN 3 is it insuff. memory? 
; No 

MOVB #LKBSK_RETRY,- ; Store lock state 

LKBSB_ STATE (R6) 


MOVL #RSNS$_NPDYNMEM,RO ; Resource to wait for 
R CVT_WAIT ; Go into MWAIT for RSNS_NPDYNMEM 


70$: BUG_CHECK LOCKMGRERR, FATAL; CSID conversion error 
-DSABL LSB 


MARAARAASLASLAALAAAALALAALA AL ALAAA EE ERE REE RRA A RE RRR R AREER SEER EERE SEES R RE REDE SS 


05 

09 

DF 2A A6 
: 


ALL requests are being stalled 
Only protected locks are being stalled 
Branch if this is not a protected lock 


60$: 


0000°8F 50 


Process level routines for handling remote conversion requests 


FRARAAAAAA AEA AAAAAAAAAAAAAAEERAAAAAAAAAAARAAAeeAReeee eee 


CVTRETRY_PROC: 
3; Retry this conversion due to the destination being removed 
3 from the cluster or we were unable to allocate a CDRP. 


MOVZBL LKBSB_RQMODE(R6) ,R1 ; Get requested Legh aede 
MOVL RSBSL-CS1D(RB) .RS :; Get CSID of destination system 
BNEQ 1 3 Resend to destination 

MOVB oukesk GRANTED ,- 3; Store correct lock state 


E 
B STATE(R6S 
yt : Do it locally 


1 4 Ab 
3 8 A8 
Ot 


00000000 ¢F 
FFS1 


5 
5 


j 
Ne OO ———————————————————Oo3o_V7o_ecVkeeee ee e__e 


L 
JMP G*LCKSLOCAL 
10$:  BRW LCKS$SND_CVTR 


CGRNTD_PROC: 
; Conversion request was granted 


BBC #LKBSV_BLKASTQED,- ; Branch if a blocking AST 
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DSTRLOCK - Distributed Lock Manager Loadable Code 16-SEP-1984 00:33:3 AX/VMS Macro V04-00 Page 
Vv “O01 LCKSSND_CVTREQ = Send a convers on reque 6-S Pa} 986 90:33:25 ESYSLOA. SREIDSTRLOCK MAR: 2 . 
OD 2A A 1 9 LKBSW_STATUS(R6) ,20$ 3; should not be queyed 
0 AB 01 BISW #LKBSA DBLKAGT - ; Set deliver blocking AST status 
2a A 1 ; LKBSW_ STATUS (RO) 
1 88 0169 BISB tty PKAST,=- ; Set piggyback kernel AST bit 
A 168 4 LKB$B_RMOD (R64) 
ne dO 190 5 MOVL PERS RE EAST WORCRG) = ; Store address of blocking AST routine 
50 A F 153 : 208: REMQUE LKBSL_SQFL(R6) ,RO 3 Remove lock from RSB's granted queue 
4 Ae 0 178 § MOVB LKBS$B_RQMODE (RO) ,- ; Set granted mode 
SA 17 LKB$B_GRMODE (R6) 
00° pO 0178 1 MOVL S*#SS$_NORMAL ,= ; Set status for lock status block 
$5 A 170 1 LKBSL_CKST1 ) 
A D5 FS) TSTL LKBSLBLKASTADR(R6) ; Blocking AST specified? 
0 1 1 : 1 BEQL 0 3; No 
42 AB B6 01 14 INCW RSB$W_BLKASTCNT(R8) 3; Yes, adjust count 
00000000 ' GF 1 187 515 40$: JSB G“LCKSGRAN : Finish granting the lock 
00000000'GF 1 B13 18 JMP G*LCKSCVT_GRANTED ; Return value block and exit 
O18 18 CVTQED_PROC: 
813 I? :; Conversion was queued 
50 38 A6 OF 019 : 1 REMQUE LKBSL_SQFL(R6) ,RO ; Remove lock from granted queue 
00000000 ' GF $ 0197 5 $ JSB “LCKSQUEUECVT ; Queue it to conversion queue 
00000000 ' GF 1 DIAS : Z JMP G*LCKSQUEVED_EXIT 
1A 5 CNOTQD_PROC: 
8 : 6 ” ; Conversion was not queued. However, we have to handle the case 
BIA 2 f ; where we receive a blocking AST message before we get here. 
03 €1 O1A3 529 BBC #LKBSV_BLKASTQED,- ; Branch if we didn't get a blocking AST 
03 2A A6 1A5 : 0 LKBS$W_STATUS(R6) ,60$ 
57 02 ag 108531 BISW  #LKBSA_DBLKAST,R? ; Set deliver BLKAST bit in old status 
9 1AB.C‘é*SSS ¢ 60$: MOVB #LKBSK_GRANTED,- 3; Store correct lock state 
36 Ab QIAD 3 LKBSB_STATE (R65 
00000000'GF 17 O1AF 4 JMP G*LCKSCVTNOTQED 
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-SBTTL SENDCVTREQ = Send convert request to remote system 


trib 
VTRE S$ 
18 § 
18 
18 ‘ p++ 
1 ? ; FUNCTIONAL DESCRIPTION: 
18 41: This routine takes care of building and sending the convert lock 
1B 42; Agreed It also handles the fork level processing of the response. 
18 43 ; e the process arerens the remote system is the master system. 
185 44 ; SENDCVTREG is called to send a convert request that requires a 
18 45 ; response. SEND CVTMSG. %s called to send a message that doesn't 
1° 8 ; require a response. 
183 48 : CALLING SEQUENCE: 
0185 550; BSBU © SENDCVTREQ 
B182 51; BSBW SENDCVTMSG 
1B5 26 5 IPL must be at SCS fork IPL (8) 
0185 53 3 This routine operates as a fork process so it may return 
B1Be eee ; to its caller before completing. 
018) 336 : INPUT PARAMETERS: 
0185 «558: RO LKB addres 
0185 559; R3 CSB edarena of destination system 
6182 269 3 R5 CDRP address 
0185 36¢ + OUTPUT PARAMETERS: 
0185 563; 
ih ei 
0183 266 : SIDE EFFECTS: 
0185 368 ; RO = R4 destroyed 
biBe 253 : 
O18) 371 : .ENABL LSB 
3182 378 SENDCVTMSG: 
54 AQ DO 0185 74 MOVL LKBSL_REMLKID(RO),- ; Store master lockid in CDRP 
¢¢ AS 1B8 ef? CORPSC_VAL1(R5) 
0 AO 00 QIBA 6 MOVL LKest CKID(RO),= ; Store process lockid in CDRP 
30 AS 18D «57 CDRPSC_VAL2(R5S 
¢ A BO O1BF 4 MOVW LKBSW FLAGS (RO) ~ ; Store flags in CDRP 
6A Ce 7 CORPSC_VAL re (RD) 
51 644A DO OIC 80 MOVL pepak CLUB(R3),R1 ; Get address of CLUB 
OOAC C1 BO O1C8 4 MOV CLUB O NER EQ(R1),- ; Store membership seq. number 
He AS 1C€C § CORP$L_VAL3(R5) 
veg 18 9E ice i MOVAB e pber' vs ty Be er as) ; Store address of message build routine 
rege" 30 01D4 5 BSBW CNXS ERD Smee se ; Send the message 
50 5 + 1D7 § MOVL R5,R 3; Address of COR 
00000000'°GF 1 1DA JMP GE XE SDEANONPAGED : Deallocate it 
160 § SENDCVTREQ: 
gf AS 30 D 1€ 9 MOVL RO, CORPSL van) ¢ R5) ; Store LKB address 
1 “64 A3 00 0164 59 MOVE CSB SL CLUB(R3) gh : Get address of CLU 
OOAC C1 8B 1€8 92 MOVW CLUBSO _MEMSEQ(R 1) 


B 
Pd ; Store membership seq. number 
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CVT_RETRY 


wo oC 
oo 


—OO 
DOONAN WWI 0 OO NIA EWI § OOD NAME WIN OC OD NAME WIN CO OD NA UNE IO OONOUEW 


PRA XPAEAPAE AAA AAA A AAA AAA AAA AA AA AA AA AAA AA AA ALM NII 


D999 BB FAM WWW LS. Ff QQ QQ OOM D ON LOO ON Fe Fe Fe FF oO ONE ITI 


BREE FAIA no nonononony 


o v04-00 Page 


r 
4 4 SYSLOA.SRCJDSTRLOCK.MAR; 2 


CORPSL_VAL3(R5) 


MOVAB W*BLO_CVTMSGR,- 3 store address of message build 
CORP$C_MSGBLD(R5) ; routine 

MOVB tity SCSWAIT,=- ; Store lock state 
LKB$B_STATE(ROS 

BSBW CNXSSEND_MSG_CSB ; Send the message 

BLBC RO,CVT_RETRY ; Dest. system is no longer in cluster 


We are resumed here when the response message arrives. 
Registers contain: 
R Address of message buffer 
R CSB address 
R4 Address of PDT 
R5 Address of CDRP 
First validate membership sequence number. l1.e. ignore response 
and retry request if we did a membership state change while 
this message was in transit. Otherwise store response code 
in LKB and then dispatch on it. 


MOVL CSB$L_CLUB(R3) ,RO ; Get address of CLUB 

CMPW CLUBS@_MEMSEQ(RO) ,- ; Compare sequence numbers 
LEMSGSO_MEMSEQ(R2) 

BEQL 0$ 3; They match 

MOVB #LKBSK_RETRY,- 3; No match = change state to RETRY 
LKMSG$B_STATE(R2) 

MOVL CORP$L_VAL1(R5) ,RO ; RO = LKB address 

CMPB LKB$B_STATE(RO),=- ; Make sure LKB is in SCSWAIT state 
#LKBSR_SCSWAIT 

BNEQ 30$ ; It's not 

MOVB LKMSG$B_STATE(R2) ,- ; Store state 
LKBS$B_STATE(RO) 

DESPATCH LKBSB_STATE(RO) , TYPE=B,PREF IX=LKBSK_,- 


<RETRY ,DEALL_WARMCDRP>,=- Retry request 


<RSPGRANTD, CGRNTD_FORK>,= : Granted 

<RSPQUEUVED, CVTQED_FORK>,=- ; Queued 

<RSPNOTQED , CNOTOD-FORK>,~ ; Not queued 
BUG_CHECK LOCKMGRERR, FATAL ; Invalid lock state 
BUG_CHECK LOCKMGRERR FATAL ; LKB not in SCSWAIT state 


; Remote system is being removed from cluster 
MOVL CDRPS$L_VAL1(R5) ,R4 ; Get LKB address 
K_RETRY 


MOVB #LKBs - ; Store retry state 
LKBS$B_STATE(R4) 
MOVL R5,R ; Address of CDRP 
JSB G*€XESDEANONPAGED : Deallocate CDRP 
BRW WAKE _PROCESS ; Wake process 
RK: 
RK: 
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; Conversion reques 
: : value block only 
3; one in the RSB. 


MOVL 
SUBL3 


BLEQ 
MOVQ 


MOVQ 
MOVL 
BICW 
BBC 

BISW 


BBC 
BISW 
BRW 


CVTQED_FORK: 


te ed Lock Manager Loadable ¢ Code 16-SEP =1384 9: i3:33 
end convert request to rem 6-SEP-1 


BSL -RSB(RO) RI 
$LVALSEQNUM(R1),- 
SGSL_VALSEQNUM(R2) ,R4 
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R2),° ; 
) 
LINVLD,- 


#RSBSM_VALINVLD,- 
RSBSW_ STATUS(RTS 


#LKBSV_BLKASTQED 


LKMSGS$O LKBSTATUS(R2) »,50$ 


#LKBSM_BLKAS 3 
LKBSW_ STATUSCRD)” 
DEALL_WARMCDRP : 


3 Conversion request was queued 


MOVW 
BRW 


LKMSG$W peccomnite? « eg 
LKB$W_ROSE 
DEALL ~GARMCDRP : 


-DSABL LSB 


AX/VMS Macro V04-00 Page 1 
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; was granted or not queued. Store returned 
f it's sequence number is later than the 
Then set BLKASTQED b t in LKB if necessary. 


; Get RSB address 


Compare sequence numbers 


; We already have newer one 


Store value bloc 


Store sequence number 


; Clear value block invalid flag 


#RSBS ; and conditionally set it 
LKMSGSO CRSBSTATOS (R2> 408 


Branch if a blocking AST wasn't queued 
Set BLKASTQED in LKB 
Deallocate CDRP etc. and wake process 


Store request sequence number 
Deallocate CDRP etc. and wake process 


D Tey ore te ed Lock Manager Loadable | Code 1 ~$60= 1388 90:33:23 yerives Macro V04-00 Page 
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; Build convert message action routines 


oc 


S eucnccceceeeeccerececcccereneceneeeeecenseecesnsceeeeonceceeeescscescese 
Action routine to build the actual convert lock request message 
Inputs are: 
. Address of message buffer 
Address of CDRP 
NOTE: CORPSL VAL contains a PID for BLD_CVTMSG and a PCB 
addresS for BLD_CVTMSGR. This is because the PCB address 
must be revalidated for the former case as the process 
can get deleted before the message build rout ine is called. 
; ALL registers except RO and R1 must be preserved 


BLD_CVTMSG: 
3; This entry point is for conversions that don't require a response 


ASSUME CLSMSG$B_FUNC EQ CLSMSG$B_FACILITY+1 
ASSUME LKMSGSL_PRCLKID EQ LKMSGSC_MSTLKID+4 
ASSUME LKMSGSL-DLCKPRI_CVT EQ LKMSGSL_EPIDCVT+4 


NYPUMMO ONE TODOOOOOOWOOOVOOWOWVOOOOoOWOOoOoOoOOoOoNO mo 


BLD_CVTMSGR: 
; This entry point is for conversions that require a response 


ASSUME LKMSGSL_MSTLKID EQ LKMSGSW_MEMSEQ+4 
ASSUME LKMSGSL-PRCLKID EQ Nr tee’ are nynipes 
ASSUME LKMSGSW"FLAGS EQ LK mses PR K1D+4 
ASSUME LKMSGSB"RQMODE EQ LKMSGS$O PFLAGS* 2 


Ae 
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08 A2 0602 8F BN MOVW #LKMSGSK_CVTLCKMa8- e function and facility codes 
'CLSMSGSR_FAC_LCK, Cusscbe. FACILITY ¥(R2) 
2c AS) 7D MOVa CORPS. vAC1(R5),- ; Store master and process lockids 
10 A2 LKMSGSC RS TLR LR (R2) ; in message 
354 AD BO MOVW CORPSL_VAL3(R5) ,- ; Store memseq in message 
¢ A LKMSGS$O ERSEQ(R2) 
3 a3 B0 MOVW CORPSL WAL 306 (R3} oo ; Store flags in message 
ASSUME LCK$V_VALBLK EQ 0 
OA 18 A G BLBC LKMSGSW_FLAGS(R2),10$  ; Branch if no value block specified 
38 A D MOVa CORPS$L_VAL4(R5),- ; Store value block in message 
20 A LKMSG$O VALBLK (R2) 
40 A 7D MOVa CDRPS$L_VAL6(R5) ,- 
28 A AA LKMSG$O VALBLK+8(R2) 
SC A 9B AC 10$: MOVZBW CDORPSL_VAL9(R5),- 3; Store requested mode, and clear 
1A A AF LKMSGSB_ROMODE (R2) > granted mode 
SE A 9A B1 MOVZBL CORP aL VAL9+2(R5) ,- ; Store blocking AST flag 
1C A B4 LKMSGSC_BLKASTFLG(R2) 
51 4 A 3C Bé6 MOVZWL ged VAL8(R5),R1 ; Get PID index 
50 00000000'GF 00 BA MOVL G“*SCH ot -PROVEC RO ; Get address of PCB vector 
50 041 DO C1 MOVL sy FI 1 Re ; Get address of PCB 
48 AS D1 «02C5 CMPL CDRP$L_VALB(RS),- : Validate PCB 
60 AO c8 ore PID(RO) 
of 13 CA BEQL BLD_CUTCOM 3: It's ok 
30 A 7¢ CC CLRQ OERSGSL _EPIDCVT(R2) ; Process was deleted; clear 
05 cf RSB ; EPID and deadlock oe terite fields 
D 
D 
D 
D 
D 
2D 
D 
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DSTRLOCK - Distributed Lock Manager Losdeble Code 16- SEP 4 00:33:34 VAX/VMS Macro v04-00 Page 1 DST 
V “O01 SENDCVTREQ = Send coneett request to rem 6-SEP-1 1382 90:3 3:35 SYSLOA.S CID DSTRLOCK.MAR; 2 ° (9) vou 
D 43 ASSUME LKMSGSL BLKASTFLG EQ LKMSG$B_ROMODE+2 
p ad ASSUME CLSMSGSB_FUNC EQ CLSMSGS$B_FACILITY+1 
08 A2 0702 BF B0 D 46 MOVW #LKMSGSK_CVTLCKR@8- ore func t jon and facility codes 
D 4 'CLSMSGSR_FAC_LCK Cusscbe. FACILITY R2) 
50 2CA 0 02D 148 OVL CORPS. VA vaci (R5) RO ; Cet address 
51 CA E ODA ff MOVAW LKMSGSO RERSEQ RE) RI: it’ nto message buffer 
1 4A €C 02D 0 MOVZWL CDRP$L_VAL3(R5),(R1)+  : Store seq. number 
1 5400 OD E2 751 OVL KBSL_REMLKID (RO) (R1)+ : Store master lockid 
1 0 AO D E f ; MOVL  LKBSLTLKID(RO),(R1)+  : Store process lockid 
1 A EA MOVW  LKBSWTFLAGS(ROS,(R1)+ =: Store flag 
1 BA E f i MOVZBW LKB$B-ROMODE(ROS,(R1)+ ; Store mode and clear granted mode 
1 0 AO OD F 5 OVL KBSL Ene Aa ig? tats Store. Block ng AST flag 
0 48A5 00 0 Fé u : MOVL EDRPSC VALB(RS) ,R : Get PCB address 
0 FA 7 8 BLD_CVTCOM: 
64 AQ DO OFA 75 MOVL PCBSL_EPID(RO),- ; Store EPID 
30 A O2FD 760 LKMSGSL_EPIDCVT(R2 
010¢ CO. obo 0 FF 761 MOVL PCBSL_DCCKPRI(RO), 
34 A2 3 166 LKMSGSL_DLCKPRI_CVT(R2) 
05 0305 76 RSB 


| 
| 
| 
| 
| 
; Store deadlock priority 
| 
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-SBTTL LKCSRCV_CVTREQ = Receive convert request 


vO4=001 ixt 
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<c 
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++ 

FUNCTIONAL DESCRIPTION: 
This routine receives conversion requests from the remote system. 
The remote system is the process system and we are the master 
system for this lock. The conversion request is performed and 
a response message is returned if called at entry point 
LCKSRCV_CVTREQ. 

CALLING SEQUENCE: 


JSB LCKSRCV_CVTREQ (calied from SCS received messzye routine) 
IPL must be at TPL$_SYNCH 


INPUT PARAMETERS: 
Address of CORP if a response is needed 
; OUTPUT PARAMETERS: 

; None 

; SIDE EFFECTS: 


A message may be sent back as a response 
RO - R5 destroyed 


- Address of message buffer 
R5 


ASSUME Witt ae ch EQ LKMSGSL_MSTLKID+4 


WAI AAA AAA AAAI AAW WIAA ANAM AAAI AAAI AINA 


LKMSG DE+2 
ASSUME LKMSG$Q_VALBLK EQ LKMSGSL_BLRASTFLG+4 


CVT_INVLKID: 
BUG_CHECK LOCKMGRERR,FATAL 
LCKSRCV_CVTMSG: : 
55 D4 CLRL R5 : Indicate no CDRP 
LCKSRCV_CVTREQ: : 


-IF NE CA$_MEAS 


00000002 URE 
INCL G*PASS$GL_ENQCVT_IN 


00000000'GF 06 


OFCC 8F 
5 


"a 


7 


PUSHR #*A<R2,R3,R6,R7,RB,R9I,R10,R11> 
PUSHL R5 ; Save CDRP address or 0 
- CDRP 


CN siuit cD pnjtroliag CDRP 
5$: ADDL3 = #LKMSG n 
MOVL (R7)+, 
(R7)+, 


MON tS “QOOCOCOOCOCOCOOCOCOOOOOOOOVOOO SOOO SOOOOCOO OOOO OOOOOOCOOOOOCOOoO I 
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RP : 
FJASTLKID R2R7 ; Point R7 into message buffer 
7)+,R ; Get master tock ig (id on this system) 
7)+,RO ; Get process lockid (for verify) 


» ow 
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V “601 LKCSRCV_CVTREQ - Receive convert request misty 7 99:23:35 USYSLOA. SREIDSTRLOCK MAR: 2 , 
9cAp 38 7 ¢ BSBW VERIFYREMLKID ; Convert to LKB address 
o9 5 E 5 t BLBC RO, CVT_INVLKID ; Invalid id 
D 5 ; Have LKB address in R6, pointer into message in R7. Set 
. § ; up other registers as needed. 
58 SOA 0 D MOVL KBSL_RSB(R6) ,RB ; Get RSB address 
59 e t 1 § MOVZWL att ; Get flags 
28 Ab 6559 si 4 0 MOVW RO LKB su FLAGS (R6) : Store them 
2A Ab ODD g 1 PUSHL LKB$W_STATUS(R6) : Save old status bits 
Aa B § BICW #LKBSA_DCPLAST- ; Clear relevant status bits 
C 'LKBSM_DBLKAST=- i The following bits retain their 
C 4 'LKBSM_ASYNC- ; old state: 
C 5 'LKBSM_BLKASTQED- 3 MSTCPY 
C § 'LKBSM_TIMOUTO- : NOQUOTA (should not be set) 
C 'LKBSM_WASSYSOWN- ; PROTECT 
C 8 'LKBSM_CVTTOSYS,=- 
2A Ab giCF 8F C 9 LKBSW_STATUS(R6) 
1 87 QA 41 40 MOVZBL (R/7)+,R1 ; Get requested mode, skip granted 
57s 06 44 B41 INCL R ; mode field 
A OVZBL LKBSB_GRMOD oR ; Get granted mode 
5B 35 A6 YO baee ir MOVZB BSB_GRMODE(R6) ,R11 d mod 
O34A Ha ; Store EPID of owner of Lock unless LCKSM_CVTSYS is set in 
sere re ; which case, store 0. R7 points to BLKASTFLG field of message. 
0 re rk ; Also store deadlock priority in LKB if not system owned. 
D4 3h bis CLRL RO ; Assume system owned 
09 59 08 EO 8 4C 49 BBS #LCKSV_CVTSYS,R9,8$ ; Branch if _it is system owned 
50 14 A7 DO 0350 850 MOVL §LKMSGSC_EPIDCVT-LKMSGSL_BLKASTFLG(R7).RO ; Get EPID 
18 A7 DO 0354 851 MOVL LKMSG$L-DLCKPRI_CVT=-LKMSG$L_BLKASTFLG(R7) ,= 
24 Ab 357 HE LKBSL_DCCKPRI (RB) : Store deadlock priority 
14 A6 50 00 4 S27 8$: MOVL RO, LKBSL_EPID(R6) ; Store EPID or 0 
50 B38 :; Decrement blocking AST count if a blocking AST was specified 
035D 28 ; and then store new blocking AST flag. 
035D 5 3; NOTE: the store of the new flag MUST be done after the test 
0 3 28 ; of the old flag and decrement of the count. 
0 A6 D0 5D 60 MOVL LKBSL_BLKASTADR(R6),- ; Save old blocking AST flag ry 
C A6 +: 61 LEBSL LOLDOLKAST (RO) i 
.. 6 66 BEQL 0$ ; No 
42 Am 87 64 6 DECW RSB$W_BLKASTCNT(R8) ; Yes, adjust count 
20 a6 «87S s«éOs«0367 64 10$:  MOVL  (R7)#7LKBSL_BLKASTADR(R6) ; Store new flag 
3 06 ; If we are converting down (or same) from PW or EX then copy 
68 6 3; the caller's value block (if specified) into the RSB. 
re oe ; R7 points to value block in message. 
68 ? ASSUME LCKSV_VALBLK EQ 0 
19 59 3 68 7 BLBC R9,208 ; Branch if no value block specified 
oo 5a 91 a 7 CMPB —sR'11 , #LCKSK_PWMODE : Is grmode mode PW or EX? 
sa St 9n 873 BPS Phe, AT RII 1 d ter than graode? 
sisr e greater n ? 
OF 1A 0876 87 BoTRu 206 Ge egedh., . 
¢f A 7 om 7 7 MOVQ R7)+,RSB$Q_VALBLK(R8) ; Copy caller’s value block to RSB 
AB 67 7D O37C #878 MOV = (R7) , RSB$SQ_VALBLK+8(RB) 
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v04-001 LKCSRCV_CVTREQ = Receive convert request 6-SEP-1984 17:43:42 [CSYSLOA.SRCIDSTRLOCK.MAR;2 (8) | 
3C AB 6 79 INCL RsBst VALSEQNUM(R8) ; Increment value block seq. number 
0 AA 9 BICW #RSBSA_VALINVLD,=- ; Clear invalid bit 
OE A RSBSW_STATUS (RBS | 
7? § 208: ; Remove this lock from the granted queue. If it was the only one and 
7 4 ; if the conversion queue is also empty, then the conversion request 
7 5 ; ¢an be granted immediately. This path is special cased because it 
f § 3 is the normal case. 
| 
50 38 A6 OF 7 8 REMQUE LKBSL_SQFL(R6),RO ; Remove lock from granted queue 
| ee B BNEQ ; Not the only one 
5A 18 A8 DF D ay MOVAL BSG8tCYTOFL (RB) R10 i; It's the only granted lock 
5A 6A OD 1 9 CMPL (R10),R10 i; Is conversion queue empty? 
16 12 94 35 BNEQ 40$ ; It's not - must check the longer way 
Q0000000'GF 16 96 9 JSB G*LCKSGRANT_LOCK_ALT ; It is = grant lock 
5A 08 CO 9C 94 ADOL #8,R1 3; Point to wait queue 
5A 6A ODTsCO39F = 895 CMPL = (R10), R10 ; Is wait queue empty? 
46 13 Ae 36 BEQL 608 : Yes, exit 
00000000'GF 16 A 9 JSB G“*LCKSGRANTWTRS ; Try granting waiting locks 
am 6 tr 528 BRB 60$ 
O3AC 900 40$: ; There was at least one other holder of the resource so we have 
SAC 3=.-: 901 ; to check for compatibility the longer way. The granted mode 
beac O06 ; of this lock is compared with the conversion grant mode. If, 
AC 90 ; other than the head of the conversion queue, there are granted 
O3AC 904 ; locks with higher lock modes than this lock, then there 
QO3AC 905 ; is no need to recompute the group grant mode or attempt to 
beac an8 3 grant waiting conversions. 
OD A8 8 1 Bang +43 - B} | -RSBSB_CERODE (RS) 3 {s grented mode = conv. grant mode? 
55 OC AB 9A O3B2 910 MOVZBL RSBSB_GGMODE(R8) ,R5S ; No, get group grant mode 
54 00000000'GF45 51 €1 Q3B6 911 BBC R1,G*CCKSCOMPAT fBLCR5],80$ : Branch if not compatible 
00000000'GF 16 tra aig JSB G*LCKSGRANT_LOCR : Grant the lock 
rr b3c> R17 BRB 60$ ; Exit with completion status in RO 
g7009900" ef 16 C7 =—s- 915 45$: JSB G*LCKSCOMP_GGMODE : Compute new group grant mode in R5 
3D 00000000'GF45 51 3 CD 916 BBC R1,G*LCKSCOMPAT_TBLCR5].80$ ; Branch if not compatible 
OC AB 55 0 D6 91 MOVB Rp -RSBSB_GGRODETRE? ; Store group grant mode in RSB 
OD AB 55 90 Q3DA 918 MOVB R5,RSB$B_CGMODE (R8) ; Also store conversion grant mode 
00000000 ' GF 16 $05 919 JSB G*LCKSGRANT_LOCK ; Grant lock 2 
00000000'GF 16 3H 3 9 JSB G*LCKSGRANTCVTS ; Try granting conversions and waiters 
3A 3 § 60$: ; Set response state to be granted 
5E 4 CO Q3EA 924 ADOL #4,SP ; Remove old status from stack 
2 «AA ED 925 BICW #LKBSM_DBLKAST,- ; Got set spuriously by common code 
2A Ab EF 3 é LKB$W_ STATUS (R64) 
50 FA 8F 90 Fl MOVB #LKBSR_RSPGRANTD RO ; Set state 
5 ea 3 9 8 POPL R ; Get response CORP or 0 
3% re 4 3 BNEQ SEND_CVTRSP ; Have a CDRP - send response 
FA 931 70$: ; Since a response is not required, we have to deallocate the 
FA 9 § 3 message buffer. However, it may be necessary to send a blocking 
4 ; ? 3 message. 
OC =6BA FA 5 POPR #*M<R2,R5> ; Get buffer and CSB addresses 
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V 501 LKCSRCV_CVTREQ = Receive convert request 6-S eats ri 90:73:25 ESYSLOA. SREIDS RLOCK .MAR; 2 ° 8) vou 
FCoR" 9 ere § BSBW CNXSDEALL_MSG_BUF_CSB ; Deallocate message buffer 
. og FF BBC #LKBSV_BLRASTOED,= i; Branch if no blocking AST queued 
OA gf A 401 8 LKB w_S ATUS(R6) ,75$ 
53 58 A6 DO 0404 MOVL  LKBS$LICSID(R6) RS ; Get CSID of other system 
54 408 rh MOVL R6,R ; Move LKB address 
09 F 408 94 BSBW = SEND BLOCKING ; Send blocking message | 
A : POPR #*°M<R6,R7,RB,RI,R10,R11> 
OFCO 8F 4 42 75$ “m<R 8,R9,R10,R11 
5 . 7 RSB 
41 45 80S ; The conversion cannot be granted. Queue the request 
41 228 3; unless the noqueve bit is set. f the conversion queue is empty 
rf be ; then RS contains the new conversion grant mode. 
57 see 4) 348 POPL R7 ; Restore old LKB status bits 
1859 O02 € At g20 BBS #LCKSV_NOQUEUE,R9,85$ ; Branch if noqueue is set 
219 $84 ; Queue the conversion 
34 A6 «6510 0 =—90 «=2(041A) «954 MOVB R1,LKB$B_RQMODE (R6) ; Store requested mode 
$8 7 BO Beas 92? MOVW RSBSW_ROSEQNM (RB) ,- ; Store request sequence number 
46 A B6 0423 957 INCW RSBSW- RQSEQNM(RB) :; Increment sequence number 
O0000000'GF 16 0426 958 JSB G*LCKSQUEUVECVT 3; Insert onto conversion queue, etc. 
50 FB BF 90 04 959 MOVB SL COSK RSPOUEUED RO ; Set response state 
3; Send response 
| eee r 44 BRB 98$ Send 
4 oe8 85$: ; The request is not to be queued. Insert back onto the 
r 4: 3; granted queue. 
00000002 04 965 IF NE CA$_MEASURE 
00000000'GF D6 04 208 INCL G*PASS$GL_ENQNOTQD 
r 30 «ENDC 
2A A6_ 57 BO 4 ses MOVW R7,LKB$W_STATUS(R6) ; Put back old status bits 
38 A6 —E 043C 970 INSQUE LKBSL_SQFL(R6) - ; Put lock back on granted queue 
10 A8 43f ©6971 RSBSL~GROFL (RBS 
5C A6 DO 0441 358 MOVL LKBSL_OLDBLKAST(R6),- ; Restore old blocking AST flag 
20 Ag 444 97 KBSL_BLKASTADR(R6) 
0 13 ret 974 BEQL 5$ ; No 
42 A8& 44 975 INCW RSBS$W_BLKASTCNT (R8) : Incr. blocking AST count 
50 «FC ef 448 376 95$: MOVB #LKBSK_RSPNOTOED RO ; Set response state 
5 8ED0 rt} 44 98$: POPL R ; Restore CORP address 
‘3 $75 SEND_CVTRSP: 
; Send response message. address is in R5. 
4 9 Send CDRP add is in R5 
$5 AS 26 8 3 3 ¢ MOVL RG - CORPSL VAL | (89) ; Store LKB address 
2 A5 0 04 MOVB RO, CORPSL_VAL2+2(R5) ; Store response state 
BB'AF 9E Q45A 984 MOVAB B*BLD CVTRSP,- ; Store address of message build 
4C AS 45D 985 CORPS -RScBLb (RS) j routine 
OFCC BF BA O045F 9 6 POPR #*M<R2-R3,R6,R7,R8,R9,R10,R11> 
51 64 A3 00 463 9 MOVL CSBSL ELU6 (RS) ,R1 ; Get address of CLUB 
OOAC Ci BO 04 9 MOVW CLUBSO_MEM EQ(R1),- ; Store membership seq. number 
34 A 468 9 CORPSL_VAL3(R5) 
53 4C A ge +99 MOVL CSB$L_CSID(R3) ,R3 ; Get CSID out of CSB 
FegC" 471 99 BSBW CNXSSEND_MSG_RESP > Send message response 
0000 ' 8F B1 0474 92 CMP RO, #SS$_ROSUTHNODE ; Is status SS$_NOSUCHNODE? 
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V O01 LKCSRCV_CVTREQ = > heceiee convert request mitt 90:33:23 SYSLOA. SRE €4D DSTRLO OCL MAR: 2 et 23) Vv 
5 92 09 g Hin H Sh : ag 5§$_ NODEL EAVE is oka 
oooodooo'e? IMP GEXESDEANONPAGED : Deallocate CDRP . 


10$: BUG_CHECK LOCKMGRERR,FATAL; CSID invalid 


BLD_CVTRSP: 
; bee routine builds a response message for conversion requests 
$: 


; R Address of message buffer 
; R Address of CSB 
; R Addre os8 f CDRP 
; ALL registers except RO and R1 must be preserved 


; Note: This message build routine uses pointers (to LKB and RSB) 
; that will not be valid if we started a state change. Therefore, 
; it is necessary to validiate the gonbores it sequence number 

; before using any pointers stored in the C 


ASSUME CLSMSGSB_FUNC EQ CLSMSGSB_FACILITY+1 


GDOOCOCOOOCOCOCOOOGOGOOOCGOOGOOGOOOOSOOOOO Or 


PRP RR RR RR RRR RRR RRR RPP RPP P RRP PRR 


08 A2 0782 8F  B0 MOVW #LKMSGSK CVTLCKR@8- ; Store function and facility codes 
'CLSMSGSA_R RESPMSG- 
iCLSMSGSK FAC_LCK,CLSMSG$B_FACILITY(R2) 
34 AS BO MOVW CDORPSL aeaiete - ; Store membership seq. num. 
0c Ag CKMSCSO. EMSEQ(R2) 
51 644A dO MOVL CSBSL_C CCUG R3),R 3; Get address of CLUB 
OOAC C1 at CMPW © CLUBSQ_MEMSEQ(R1),- : Have we done a state change? 
34 AS DRPSL~ _VAL3(R5) 
BNEQ 0$ 3; Yes 
50 ¢ AS OD (R5),RO ; Get address of LKB 
AO 3—»bO 3 MOVL LKBS$L_CKID(RO),- 3; Store master lockid 
1 LKMSGSL_MSTLKID(R2) 
5 MOVL LKBSL_REMLKID(RO) ,- ; Store process lockid 
1 LKMSGSL PRELKID(R2) 
3 MOVB A +2(R5),- 3; Store response state 
1—E A LKMSG$B_STATE(R2) 
3 CMPB LKB$B_STATE(RO),- 3; Is lock state = GRANTED 
#LKBSK. GRANTED 
le 4B BNEQ 10$ 3; No 
BO 048 MOVW LKBSW_STATUS(RO),- 3; Yes, store LKB status 
4BB LKMSGSW W LKBSTATUS(RZ) 
50 0 MOVL LKBSL Get RSB address 


Store value block 
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$8 A 
$5 A 
8 A 4C1 
A 4C4 LKMSGSQ VALBLK(RE) 
0 A 4cg MOVQ RSB$Q VALBLK+8(RO),- 
A 4C LKMSGSQ_VALBLK+8(R2) 
CA 4CB 4 MOVL RSBSL_VALSEQNUM(RO).- ; Store value block seq. number 
OA 4C 4 LKMSGSL VAL SEQNUM(R2) 
OE A BO 04D 4 MOVW RSB$W_STATUS(R ; Store RSB status 
1A A 4D 4 LKMSGSW TASBSTATUS(R2) 
05 4D 4 RSB 
18 rv B0 aDg 46 10$: MOVW LKB$W_RQSEQNM(RO) 3; Store request sequence number 
30 A 409 4 LKMSGSW_ROSEQNM(R Rd) : (not used if state = RSPCNOTQD) 
4DC 104 
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vo4~001 LKCSRCV_CVTREQ = Receive convert request ~$FE= 138 99:23:23 ESYSLOA. SREIDSTRLOCK MAR; 2 ° 8) 
40C 1 9 20$: 3; We've done a membership state change between our SEND_MSG 
40C 1 ; and calling the message build routine. Just send back a RETRY 
rh: ! § ; status. 
FE 8F 90 QO4DC 1054 MOVB #LKBSK_RETRY,=- 3; Store RETRY status 
1E A2 . ADF 33 LKMSG$B_STATE(R2) 
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Send lock request tor moet} 7 00:33:23 YOYSLOA. SREIDSTRLOCK MAR: 2 ” (9) 


-SBTTL LCKSSND_LOCKREQ = Send lock request to remote system 


or 


++ 
; FUNCTIONAL DESCRIPTION: 


This routine handles Lock requests that must be forwarded 
to the master system for this lock. This es is the process 
system. In the case of root locks, the master system has not 
been determined yet so this request effectively functions as 

a directory lookup. 


: CALLING SEQUENCE: 

; JMP LCKSSND_LOCKREQ (This routine does not return to its 
; caller. Instead it jumps to an 
: appropriate destination.) 

: IPL must be at IPL$_SYNCH 

: INPUT PARAMETERS: 

: R3 CSID of destination system 

3 R6 Address of LKB 

; R8 Address of RSB 

: R9 Flags 

: OUTPUT PARAMETERS: 

: RO Completion code (on some exit paths) 

: SIDE EFFECTS: 


The process will go into MWAIT state until the response from the 
remote system arrives. 


RO - RS destroyed 


MM MMM MMMM MM TET CTT CTI CTE ETE CT ETUC TUTE CTU CTIUCTOCVICTITICTI Creer ever vir ver river rire 
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ODOOCOOCOCOOOOCOGOVGOOGOOCOOGOOOGOSOOOGOOOOOOOOOOOOOOOoO 2- 


BF 8 OF Se oe ee en ee ae ae ae ae ae ek eae eee ee ak ae ee ek kek ee ee ee ek ek ek ke ek ek ek ee ee ee a 


et tt 1 IQODOOOOCOOOOCOOGOOOCOSOOSOSCGOOOCOSOOCOCOCOCOCOCCOOGOOOOOCSOOOOoOO 7A 


c -ENABL LSB 
; LCKSSND_LOCKREQ: : 
E ; The LKB is inserted on the RSB's wait queue until the response 
E ; arrives. Note: Normally, the LKB state field sheuld get stored 
E 3 edjacent to the INSQUE. Here, it aete storec shortly; either 
E : in SENDLOCKREQ or in the code that waits for pool. 

38 A OE E INSQUE LKBSL_SQFL(R6),- ; Insert LKB onto tail of RSB's 

24 B : @RSBSC_WTOBL (RB) ; wait queue. 
; RESEND: ; Allocate a CDRP and send the message 

54  00000000'GF 0 E MOVL G*SCHSGL_CURPCB,R4 : Get our PCB address 
FBOF' 30 E 1 BSBW CNXSALLOC_WARMCORP ; Alloc. a CDRP with RSPID and CVT CSID 
Be. F 1 BLBC RO, WAITFORMEM 3; No CORP or CSID error 
0 D F 1 MOVL R6,R ; Move LKB address 
1 D 4F 1 MOVL R8,R :; Move RSB address 
48 AS 4 OD 4F 1 MOVL R4, CORPSL_VAL8(R5) ; Store PCB address in CDRP 


2% 
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V “601 LCKSSND_LOCKREQ = Send lock request to r ae 99:33:35 ESYSLOA. SREIDSTRLOCK «MAR: 2 . (9) 
gore 38 f BSBW FEWBLOCKRES 3; Send the lock request 
54 48 AS OD MOVL CORPSL_VAL8(R5) ,R4 ; Restore PCB address 
LCK_SCS_WAIT: 
50 OD 00 MOVL #RSNS_SCS,RO ; Go into MWAIT for resource RSN$_SCS 
3 LCK_WAIT: 
3; Put the process into MWAIT until the response arrives or 
3; the resource becomes available. Resource number is in RO. 
; PCB address is in R4. 
0 AS DO MOVL PCBSL_PID(R4) ,=- 3; Make sure PID is stored in case lock 
C 48 LKBSL_PID(R6) : is system owned 
1 78 ASHL #PSL$T_IPL,=- 3; Create a PSL on stack with IPL 
2 #IPL$_KSTDEL,-(SP) : 


| 
| 
| 
0 
: 
: 
0 
| 


7... & set to IPLS$_ASTDEL 
Q0000000'GF 16 a 


JSB G*SCHSRWAIT ; Wait 


; Upon reawakening the LKBSB_STATE field tells us what action 
3} te prrrore. But first, we have to make sure that we're not 


:; stalling lock requests. 
SETIPL #IPL$_SYNCH ; Raise IPL 
00000000'GF 95 TSTB *LCKSGB_STALLREQS ; Are we stalling? 
1D 612 BNEQ 0$ ; Yes 
0359 06 €1 15$: BBC #LCKSV_CVTSYS,R9,20$ 3; Branch if not system owned 
OC A6 4 CLRL LKBSL_PID(R6) ; Clear PID of system owned lock 
20$: estas” LKBSB_STATE(R6) , TYPE=B, PREF IX=LKB$K_,- 
<RSPDOLOCL ,DOLOCL_PROC>,- 3; Do locally 
<RSPGRANTD,GRANTD_PROC>,=- ; Granted 
<RSPQUEUED ,WAI TNG-PROC>,- : Waiting 
<RSPNOTQED ,NOTQED PROC>,- 3; Queued 
<SCSWAIT,LCK_SCS_QAIT>,- : Spurious wakeup 
<RETRY LEKRETRY_PROC>, = : Retry lock 
BUG_CHECK LOCKMGRERR FATAL : Invalid lock state 
30$: ; We are stalling some or all lock requests. See which ones. 


05 
DC 2A A6 


BLSS 40% 

BBC #LKBSV_PROTECT,- 

LKBSW_STATUS(R6) ,15$ 

40$:  MOVL  #RSNS$~CLUSTRAN,RO 
BRB LCK_WAIT 


ALL requests are being stalled 

Only protected locks are being stalled 
Branch if this is not a protected lock 
Resource to wait for 

Go into MWAIT for RSNS_CLUSTRAN 
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RESEND_BRANCH: 
BRB 


9A 1 see TEMPORARY *#* 


CSID to CSB conversion error 


RESEND 


BUG_CHECK LOCKMGRERR, FATAL 


WAI TFORMEM: 
3 D conversion error or insufficient pool to allocate 
P. If not CSID error then wait for pool and try again. 


PV PU PUP PV PUP PVP PVPS SUSU USUI SUSU oO 
a a a a a a ee ee a a ee ee ed ad a a a UD CFD 
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38 
60 
6 
6 
64 
92 CSID_ERROR: 
79 
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V bot LCKSSND_LOCKREQ = Send fock request tor gr SEF = 18 4 90:3 :42 (CSYSLOA.SRCIDSTRLOCK.MAR;2 . (9) VO4: 
0000 ' BF 29 8) CMPW RO,#SS$_INSFMEM ; Is it insuff. memory? 
F : BNEQ CS{D_ERROR ; No 
FE BF 9 MOVB #LKBSK RETRY,=- ; Store lock state 
3 Ag LKBSB_STATE(R6) 
50 6(0 dO MOVL #RSNS$_NPDYNMEM,RO ; Resource to wait for 
mT BRB LCK_WAIT : Go into MWAIT for RSNS$_NPDYNMEM 
-DSABL LSB 
FRR AREA AEE REAR AEA EAAE REA EAA ee ee 
; Process level routines for handling remote lock requests 
ITIIIITISI IIIT TIL ITI LITT ITT LITT i tii ti titi iitiiiiii iit iiit titi t iil 
LCKRETRY_PROC: 
53 38 ag t MOVL RSBSL_CSID(R8) ,R3 ; Get CSID of destination system 
E 1 BNEQ RESEND_BRANCH 3; Try again 


; This system became the manager of the resource while we 
; were waiting. Fall through to... 


DOLOCL_PROC: 
3; Handle the request locally. 


PMOPOTORONOROPNY — OO EB 
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CGOOCOOOCOCOCOCODOCOCOOCOOOSOOCOCOOCSCOOCCOOCO OOOO OCOCO OOOO OOOOOOCOOOOOOOOoOoOOoOO 2- 


; Remove from wait queue 
38 A OF REMQUE LKBS$L_SQFL(R6) ,RO R f it 
00000000'GF 17 JMP G*LCKSLOCAL_LOCK 
GRANTD_PROC: 
~ ; Lock request was granted 
ee BBC #LKBSV_BLKASTQED,- ; Branch if blocking AST should 
OD 2A A6 LKBS$W_STATUS(R6) ,10$ 3 not be queued 
02 As BISW #LKBSA_DBLKAST,- ; Set deliver blocking AST status 
2A Ab KBSW_ STATUS (R6) 
10 88 BISB #LKBSA_PKAST,- ; Set piggyback kernel AST bit 
A6 LKB$B_RMOD(R6) 
20 A600 0 MOVL LKBSL_BLKASTADR(R6),- ; Store address of blocking AST routine 
10 A6 1 LKBSL~AST (R6) 
50 8 A6 OOF 11 108: REMQUE LKBS$L_SQFL(R6) ,RO ; Remove lock from RSB's wait queue 
4A6 90 05 1 MOVB  LKBSB~RQMODE(R6) , - ; Set granted mode 
5 Aé 5 1 LKB$B_GRMODE (R6) 
00° pO 0580 1 MOVL S*#SS$_NORMAL ,- ; Set status for lock status block 
C Ab 3 F 121 LKBS$L_CKST1(R6) 
OA o 1 1 TSTL LKBSL_BLKASTADR(R6) ; Blocking AST specified? 
0 1 594 1 BEQL 15 3 No 
43 A8& 89 208 1 INCW RSB$W_BLKASTCNT(R8) ; Yes, adjust count 
00000000' GF 6 59 19 15$: JSB G*LCKSGRANT_REM : Finish granting the lock 
00000000 ' GF 1 AH JMP G*LCKSSYNC_EXIT ; Exit the service 
5A WAITNG_PROC: 
3n3 ; Lock request had to wait. PCB address is still in R4. 
00000000 ' GF 16 aA3 JSB G*LCKSQUEUE_REM ; Queue the lock request 
00000000'GF 1 2a JMP G*LCKSQUEVEB_EXIT ; Exit the service 
3B NOTQED_PROC: 


] 
- ° DST 
0° “send er toadable foe ESE 1986 PPiTi73 ENSLOR.SRESBstRcock.man;2 "°° vo4 
| 
| 
| 


dD JRLOCK - Distributed 
v04-001 LCKSSND_LOCKREQ 
Bi 1 : Lock neg Sy. was not queued Oy due to an error. Status code 
B1 1 ; returne by remote system is in LKB. Typical values are 
4 : ; SSS$_NOTQUEUVED or SSS_NOLOCKIDS. 
5B 2C AB «63C s } MOVZWL LKBSL_LKST1(R6),R11 ; Get status 
5B5 1235 CHECK, RSB: 
585 (1 § ; LKB is to be deallocated. Check if RSB should be deallocated too. 
28 ! 4 3; Status is in R11. 
50 38 A6 OF O5B5 1239 REMQUE LKBS$L dy : Remove lock from RSB's wait queue 
aise $ 828? 1240 JSB G*LCK$ asbre Deallocate RSB if necessary 
Q0000000'GF 1 ta ists SRP Gat CRSNOT “SoLueD t Cleanup and exit service 
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f ! te -SBTTL SENDLOCKREQ = Send a (new) lock request 
C5 (1 ‘$ p++ 
2¢ } ? ; FUNCTIONAL DESCRIPTION: 
5¢5 1 rk ; This routine takes care of building and sending the new Lock 
5c5 1 29 3 request message to the remote system. It also handles 
2f 1251 ; fork level processing of the response. We are the process system; 
2c : 26 3 the remote system is the master system. 
2f ! 34 3; CALLING SEQUENCE: 
ef 1 36 3 BSBW SENDLOCKREQ 
O5¢5 1257 ; IPL must be at SCS fork IPL (8) 
05¢5 1258 ; This routine operates as a fork process so it may return 
Bate 1259 ; to its caller before completing. 
05€5 1260 ; 
b2ee 1261 ; INPUT PARAMETERS: 
5c5 1 86 : 
O5€5 1263 ; RO LKB address 
05€5 1264 ; R1 RSB Address 
bate 1265 ; R CSB address 
5c5 1 6 3 R5 CDRP address 
05€5 1267 ; 
B3Ce : o8 ; IMPLICIT INPUTS: 
Baee : 79 3 CDORPSL_VAL8 Contains PCB address of process requesting lock 
os5c5 (1 i ; OUTPUT PARAMETERS: 
05¢5 1273; 
Bate 1274 ; RO - R4 destroyed 
5¢5 1275 ; 
5€5 1276 ; SIDE EFFECTS: 
5€5 1277 ; 
5¢c5. 1278 ; NONE 
05¢5 1279 ; 
05€5 1280 ;-- 
05€5 1281 -ENABL LSB 
bece 1 ¢ 
5C5 1283 SENDLOCKREQ: 
Beee : : ; Put everything we need to build the message into the CDRP. 
CAS 5 7D ba¢e 1 Bg MOVa RO, CORPSL VAG} (Re) ; Store LKB and RSB addresses 
1 644A 44 44 1 MOVL cSBSt CLUB(R3) ,R1 ; Get address of 
OoAc C1 B CD 1288 MOV) CLUB B_REMSEQ (RT) , - : Store membership seq. number 
34 A 5D1 1289 CORPS$L_VAL3(R5) 
O6FC'CF QE 203 1290 MOVAB W*BLD_COCKMSG,- ; Store address of routine that will 
4C A 5p? 1291 CORPSC_MSGBLD(RS) i actually build message 
FD 8F 90 QO5D9 1 38 MOVB #LKBSK_SCSWAIT,- ; Set LKB state to SCSWAIT 
36 AO 30 93 LKBS$B_STATE (ROS 
pe : 33 3; Send the message 
FAIF* 39 spe 1 39 BSBW CNXS$SEND_MSG_CSB : 
4150 € —1 1 38 BLBC RO,LCK_SENDERR ; Destination system is being 
beee ' + 3; removed from cluster 


| 
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V ‘bot SENDLOCKREG = Send a (new) Toek request gS Ei bbe 90:33:25 EEYSLOA. SREIOSTRLOCK «MAR: 2 . 48), 
ES 1301 ; We are resumed here when the response message arrives. 
E4 1 § ; Registers contain: 
e4 1 ; R Address of message buffer 
E4 1304 : Pp Address of CS 
E4 1305 ; R4 Address of PDT 
E4 1 § 3 RS Address of CDRP 
eS 1 ; First validate membership sequence number. I.e. ignore response 
E4 1 $ ; and retry request if we did a membership state change while | 
e4 1 ; this message was in transit. Otherwise store response code 
ett } HY ; in LKB and then dispatch on it. 
50 64 As BO O5EL 1318 MOV. — CSBSL_CLUB(RS) RO ; Get address of CLUB | 
OOAC CO. BI EB 131 CMPW  CLUBS@_MEMSEQ(RO) ,- ; Compare sequence numbers 
OC A SEC 1314 LKNSGSO_MEMSEQ (Re) 
0 13 QOSEE 1315 BEQL 0$ ; They match 
FE 8F 90 QOSFO 1 1 MOVB #LKBSK_RETRY,=- ; No match - change state to RETRY 
1E A sF3 131 LKMSGSB_STATE(R2) 
50 ¢ A 7D O55 1 13 208: MOVQ CORP$L_VAL1(R5),RO ; RO = LKB address; R1 = RSB address 
6 a0 91 Ror? 131 CMPB LKB$B_STATE(RO),- ; Make sure LKB is in SCSWAIT state 
FD 8F 5FC 1320 #LKBSR_SCSWAIT 
1D 3 gar 1321 BNEQ 30$ ; It's not 
1 A2 9 600 1 § MOVB LKMSG$B_STATE(R2),- ; Store state 
36 AO et : ? LKBS$B_STATE(RO) 
9605 5 DISPATCH LKB$B_STATE(RO) , TYPE=B, PREF IX=LKBSK_,- 
0605 1 $ <RETRY ,DEALL_WARMCDRP>,- ; Retry this request 
0605 1328 <RSPRESEND ,RESEND_FORK>, = ; Resend to specified node 
0605 1329 <RSPDOLOCL ,DOLOCL-FORK>,- 3 Do locally 
0605 13350 <RSPGRANTD,GRANTD_FORK>,-=- ; Granted 
0605 1331 <RSPQUEUED WAI TNG-FORK>,- 3 Waiting 
bene ’ ¢ SROPUOTECS MOTOES 7 ORD = ; Not queued 
0619 1334 
Bele ! 5 BUG_CHECK LOCKMGRERR ,F ATAL ; Invalid lock state 
g018 1 : 308: BUG_CHECK LOCKMGRERR , FATAL ; LKB not in SCSWAIT state 
621 1 8 5$: BUG_CHECK LOCKMGRERR FATAL ; Other system returned 
6 1 : invalid CSID 
6 1 rt LCK_SENDERR: 
: r ; Remote system is being removed from cluster 
54 2C AS DO 06 1 rk MOVL CDRPSL_VAL1(R5) ,R4 ; Get LKB address 
38 55 D0 0629 1344 MOVL ; Address of CDRP 
00000000'GF 16 06ec 1345 JSB G*€ XE SDEANONPAGED : Deallocate CDRP 
4c 11 ? : +8 BRB LCK_RETRY ; Wake process and retry request 
6 4 1 rt} FARA AAA AAAS AERA AAA AAA AAA AAAA ARERR AAAAAEAAAAAAAAAAAAAAAREAe AAA e eee 
634 1349 ; 
2 ' 9 : Fork level routines for handling remote lock request responses 
6 4 1 § TITII TIS TI IIIT IIIT TTT TIT IIIT i titi titi iiiiiiti tii iiiiiiiiiii tii iii iiit ih 
634 1 
634 1354 RESEND_FORK: 
634 1355 ; Resend request to prother system (specified by CSID). 
634 1 § ; New destination CSID is in message. But before we use it we 
634 1 ; have to make sure the CSID address in the RSB didn't change out from 


ee . = -4 
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yeue001 SENDLOCKREQ = Send a Crew) tock request aise 90:33:23 SYSLOA.SRCIJDSTRLOCK.MAR;2 ° (48) v4 
4 1 : ; underneath us by a different thread. If it did, we have to use the 
» ; stored CSID address because if we were to change the stored one, 
4 1 3; we could confuse the other thread. Once we determine 
4 1361 ; the correct CSID we deallocate the old 
634 1 § ; CORP and message buffer and gi Locese anew ones. The deallocate 
634 1 ; ong allocate are necessary ; nce CRDPs and message buffers are 
634 1564 ; maintained on a per CSB basis. Also, the CDRP will get 
634 1365 : initialized when it's reallocated. R3 still contains old 
2 ! 96 ; CSB address 
9700089 634 1 rt: ~1F NE CAS Hs ag 
QO000000'GF oD 634 1 § INCL G*PASS$GL_DIR_OUT 
SB Pe amg 
54 18 A2 DO O63A 1 ys MOVL LKMSGSL_CSID(R2) ,R4 ; Get specified CSID 
38 Al D1 «(06 ‘ 137 CMPL RSBS$L_CSID(R1),= ; Has the CSID in the RSB changed? 
Rs BE Tey fggetctsi0en . 
3 No 
54 38 A1 0 et3 1 6 MOVL RSBSL_CSID(R1) ,R4 ; Yes, get new CSID 
if 13 0649 137 BEQL $ : It's now being done locally 
38 Al 4 DO 0648 1 4 40$: MOVL R4,RSBSL caip eet) 3; Store new CSI 
48 AS bp 64F 137 PUSHL  CDRP$L_VALB(RS) > Save PCB address 
7E 50 D o3¢ 1 9 mova RO,-(SP) ; Save LKB and RSB addresses 
F9AB8' 30 0655 1381 BSBW CNXSDEALL_WARMCDRP_CSB ; Deallocate old CDRP and message buffer 
ss. % beep 1 § MOVL R4,R 3 Move new CSID 
00000000'GF 95 0658 1 TSTB G*LCK$GB_STALLREQS ; Are we stalling lock requests? 
17. 12 0661 1384 BNEQ ; Yes, wake process 
F99A*' 30 0663 1385 BSBW CNXSALLOC_WARMCDRP ; Alloc. a CDRP with RSPID and cvt CSID 
OA 50 4 B08 1 36 BLBC RO,45$ 3; Allocation or CSID convert failure 
50 Ht D 0669 138 MOVO = ($P)+,R0 : Restore LKB and RSB addresses 
48 AS BEDO bess 1388 POPL CORP$L_VAL8(R5) ; Restore PCB address into new CDRP 
FF52 = 31 of ! o BRw SENDLOCKREQ ; Resend it 
Oe7 1391 45$: ; Unable to allocate a CDRP or CSID returned by other system 
673 1 8 3; was invalid. If it's insufficient memory then let process 
0673 139 ; do the allocate so that it can wait, if necessary. If CSID 
of : 3 : returned by the other system is invalid, then bugcheck. 
0000 ' 8F 30 9} of ! 38 es | 99,7888 pnernen : is if Inout. memory? 
54 BE 7D O67A 1 38 47$: MOVa (SP)+,R4 : Restore LKB and RSB addresses 
SE 04 CO 443 +44 ADDL #4,SP ; Throw away PCB address 
680 1401 LCK_RETRY: 
1? ¢ 3; Set lock state to RETRY and wake process. LKB address is in R4. 
FE 8F 90 06 1404 MOVB #LKBSK_RETRY,- ; Set RETRY state 
36 AG 1405 LKB$B_STATE(R4) 
See i? $ BRB WAKE _PROCESS 
F9 BF 90 0687 1408 50S: MOVB #LKBSK MsPpOL Ort» 3 Fhange state to handle request 
36 AO "9 13 LKBS$B_STATE(RO) ; locally and fall through to ... 
68C 1411 DOLOCL_FORK: 
; 116 3; Handle request locally 
00000002 O068C 1414 -I1F NE CAS_MEASURE 
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youn bot SENDLOCKREQ - Send a (new) reek request aes 00:33:25 SYSLOA.SRCJDSTRLOCK.MAR;2 3) 
00000009 ' GF D6 06 1415 INCL G*PMS$GL_DIR_OUT 
1718 -ENDC 
38 Al 4 1218 CLRL RSBSL_CSID(R1) : Indicate we will handle this resource 
46 #11 re 1733 BRB DEALL_WARMCDRP ; Deallocate CDRP etc. and wake process 
697 1401 NOTQED_FORK: 
44 1? ; ; Lock request was not queued due to error or incompatibility 
1C¢ ae BO 0697 1424 MOVW LKMSG$W_STATUS(R2),- ; Move completion status to LKB 
2c A 69A 1425 LRBSL_URSTI'R ) 
39—~i«&*2 230 1? § BRB 0$ ; Deallocate CDRP etc. and wake process 
69E 14 8 WAITNG_FORK: 
oor 1¢ 3 3; Lock request has to wait 
30 A BO O69E 1431 MOVW LKMSG$W_RQSEQMM(R2),- ; Store request sequence number 
10 A 6A1 14 ; LEROY _RESEGNACRO) 
D 11 mY 1? t BRB 0$ 
6A5 1435 GRANTD_FORK: 
6A5 14 $ ; Set BLKASTQED bit in LKB if appropriate. Then store value 
Deh 1? 5 ; block from message unless one in RSB is newer. 
01 E1 O6A 1439 BBC #LKB$V_DBLKAST,=- ; Branch if blocking AST shouldn't 
04 1B A 6A7 1440 LKMSG$Q_LKBSTATUS(R2),55$ ; be queued 
03 A8& SeaA 1441 BISW #LKBSM_BBLKAST,- 3 Set deliver blocking AST bit 
A AO 06AC 1448 LKBSW_ STATUS (RO) 
s Al C3 5 1443 55$: SUBL3 RSBSL_VALSEQNUM(R1),- ; Compare sequence numbers 
54 30 A2 681 1444 LKMSGSL_VALSEQNUM(R2) ,R4 
1¢ «615 «6(06B4 «61445 BLEQ ; We already have a newer one 
0 A2 7D $86 1068 mMOVa LKMSG$Q_VALBLK(R2),- 3; Store value block 
8 Al 6B9 144 RSB$Q_VALBLK(R1) 
8 A2 7D 0688 re | MOVaQ LKMSGSQ_VALBLK+8(R2) ,- 
0 Al 68 144 RSB$Q_VALBLK+8(R1) 
0 A2 dO 06CO 1450 MOVL LKMSGSL_VALSEQNUM(R2),- ; Store sequence number 
C Al C 13) RSBSL_VALSEQNUM(R1) 
02 AA C 1 § BICW HES toga eT ; Clear value block invalid flag 
” 1 €1 ra 1454 BBC #RSBST_VALINVLD,- - and conditionally set it 
04 14 3 aw OecE 145 om Maine 
OE Ri 6p i RSBSW_STATUS(R1S 
D2 1459 60$: MOVL LKMSGSL_MSTLKID(R2),- ; Store remote lock id 
Hi Ab 4 2 1999 LKBSL_REMLKID(RO) 
000000 D7? 1462 70$: .1F NE CAS_MEASURE 
oooco000' er oe 607 14 2 INCL GAPRSScLe NQNEW_OUT 
Sp 1465 sti 
4 ALL_WARMCDRP: 
DD 14 ‘ ney 3; Deallocate CORP (R5), message buffer (R2), and RSPID (in CDRP). 
600 188 : LKB address is in RO. CSB address is in R3. 
5 14 MOVL RO,R4 ; Move LKB address 
. F9%D" 88 e 127 BSBW CNXSDEALL_WARMCDRP_CSB ; Deallocate the package 
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147 
14 é WAKE -PROCESS: 
12 ¢ ; LKB address is in R4. 
51 3 147 MOVZWL Lkest PID(R4) ,R1 3; Get process index 
50 06900006 ¢F GF 05 1299 MOVL oa 3 BSG, ft PCBVEC,RO + Get Sdaress of ote vector 
4 041 OD E 1028 MOVL RO)CR : Get address of PCB 
Fe 14 y 
52 a OSES 1G 
Q0000000'GF 1 F 1288 
8 " OOFA 1484 -BYTE WAS ; because we need to JSB 
Ee aie 
O6FC 14 $ -DSABL LSB 


; Change process state to executable 

CLRL R2 3; No priority increment 

JSB G*SCHSRSE ; Report event (RPTEVT not used 
Y EVTS_AST G*) 
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FC 1486 FARRAR AERA AAA R EAE RAHAT AAA AAEARAAARAAAEAARARAKEARAeARe eee eee eee 
FC 14 ; 
FC 1491 ; Build message action routines for new lock requests 
fe 1436 ; and rebuild lock during failin/out 
6FC 1494 WITTIIIIIIIITI TIT TTLL LILI ili iit iii iit 
FC 1495 
ore 1238 BLD_LOCKMSG: 
FC 149 ; Action routine to build the actual lock request message 
FC 1338 ; Inputs are: 
FC 149 $ R Address of message buffer 
ore 1 9 ; R Address gf P 
ore ! ; ALL registers except RO and R1 must be preserved 
6FC 15 5 ASSUME LKMSGS$W_HASHVAL EQ LKMSG$W_MEMSEQ+2 
6FC 1504 ASSUME LKMSGSL_EPIDNEW EQ LKMSG$W_HASHVAL+2 
6FC 1505 ASSUME LKMSGSL_PRCLKID EQ LKMSGS$L_EPIDNEW+4 
6FC 1 86 ASSUME LKMSGSW_FLAGS EQ LKMSGSL_PRCLKID+4 
6FC 1 8 ASSUME LKMSGSB_RQMODE EQ LKMSGSW_FLAGS+2 
6FC 1508 ASSUME LK  GRMODE €E LKMSG$B_RQMODE+1 
O6FC 1509 ASSUME LKMSGSL_BLKASTFLG EQ LKMSG$B_GRMO 
pore 1510 ASSUME LKMSGSL-PARPRCLKID EQ LKMSGSC_BLKASTFLG+4 
6FC 1313 ASSUME LKMSGSL_PARMSTLKID EQ LKMSG$L_PARPRCLKID+4 
O6FC 1 \§ ASSUME LKM GROUP EQ LKMSGS$L_PARMSTL 
6FC 151 ASSUME LKMSGS$B"RMOD EQ LKMSG$W_GROUP+2 
6FC 1318 ASSUME LKMSG$B_RSNLEN EQ LKMSGSB_RMOD+1 
re 131? ASSUME LKMSGST_RESNAM EQ LKMSGS$B_RSNLEN+1 
O6FC 1517 ASSUME CLSMSGSB_FUNC EQ CLSMSG$B_FACILITY+1 
08 A2 0102 8F- B0 ore 1318 MOV #LKMSGSK_NEWLOCK&8- ; Store function and facility codes 
r08 1319 Spent 'CLSMSGSR_FAC_LCK,CLSMSG$B_FACILITY(R2) 
3C 7 8 1521 ra PUSHR #*M<R2,R3,R4,R5> 3; Save registers 
50 2c AS 7D 0704 13 : MOVQ CDRPS$L-VAL1(R5).R : RO = LKB address; R1 = RSB address 
52 Of cO 60708 1 ADDL #LKMSGSW_MEMSEQ,R ; Point inside message 
82 34A B pe 1524 MOVW CORPS$L_VAL3(R5),(R2)+  ; Store rebuild seq. number 
8 44 A1 8B 70F 1 5 MOVW RSB$W_AASHVAL(R1),(R2)+ : Store resource hash value 
4 485 b 013 1 : MOVL DRPSC_VAL (R5) RS : Get PCB address 
a 71 1 BEQL $ ; Branch if system owned (rebuild only) 
82 fi A4 00 0719 1 8 MOVL PCBSL_EPID(R4) , (R2)+ 3; Store EPI 
010¢C C4 DO O71D 15 MOVL BSL ~DLCKPRI (R4) ,- ; Store ceagigck priority 
: a2 721 1530 LKMSGSL_DLCKPRI NEW-LKMSGSL PRCLKID(R2) 
A DO 07 ; 1531 5$: MOVL LKBSL_LRID(RO) ,TR2)+ ; Store process lock id 
é AO BO 0727 1 : MOVW LKBSWTFLAGS(ROS,(R2)+ : Store input flags 
AO BO 0728 1 MOVW  LKBSBTROMODE(ROS,(R2)+ : Store lock modes 
0 AO DO O72eF 1534 MOVL LKBSL BLKASTADR(RO),- ; Set blocking AST indicator. Note: 
§ 7 1535 (R2)+ 3; address is not used - just zero or not 
D4 «(07 1 § CLRL R3 3; Assume no parent lock id 
54 48 ry D 7 1 MOVL PhBOL PARENT (RO). ; Get address of parent LKB 
0 1 7 1 3 BEQL 0 ; No parent 
3 OA4 OD 7 1 MOVL LKBSL_LKID(R4) ,R3 ; Get parent's process lock id 
4 54 Ad p 73F 1 40 MOVL  LKBSL-REMLKID(R4),R4  ; and master lock id 
2 6S D 0743 1541 108: MOVQ R3,(R2)+ ; Store both parent lock ids 
50 4F Al QA Q746 154 MOVZBL RSS _RSNLEN(R1) ,RO ; Get resource name length 
50 98 68 74A 154 ADDL #4, : Account for adjacent fields 
62 4C Al 0 74D 1544 MOVC3 RO,RSBSW_GROUP(R1),(R2) ; Move group number, access mode, 
752 «1545 3; res. name length and resource name 
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Oo 
wn 


20$: 


ock 
POPR 
RSB 


; Have a zero for PCB address. 
:; for system owned locks. 


ADDL 
BBS 


LKBSW_ 
BUG_ CHECK 
LCKSBLD_REBLDLOC 

MOVW 


ASSUME 


CLRW 
BICB3 


B1CB3 
MOVB 


Pp DS] 
request — iy v4 
#*M<R2,R3,R4,R5> 


SYSLOA.SRCJDSTRLOCK.MAR;2 
; Restore registers 
This should only occur doing rebuild 
Verify CVTSYS bit is set. 


3 Move past EPID field 
; Continue if CVTSYS is set 
W_FLAGS(RO) ,5$ 


LOCKMGRERR, FATAL; CVTSYS not set and PCB address = 0 


Ke: 

#LKMSGSK_REBLDLOCK@8- _; Store function and facility codes 
'CLSMSGSR_FAC_LCK,CLSMSG$B8_FACILITY(R2) 

BLD LOCK COR ; Build normal portion of sessege 
CORPSL_VAL1(R5) RO ; RO = LKB address; R1 = RSB address 
LKBSW_RQSEQNM(RO) ,- ; Store request sequence number 
LKMSGSW ROSEGALT(R2) 

RSB$Q_VALBLK(R1),=- 3 Store value biock 
LKMSGSQ_VALBLKALf (R2) 

RSB$Q_VALBLK+8(R1),- 

LKMSGSQ_VALBLKALT+8(R2) 


RSBSL_VALSEQNUM(R1) ,- 
LKMSGSL_VALSEQALT(R2) 


LKMSG$B_RSTATUS 50 LKMSG$B_LSTATUS#1 
LKBSV_ASYNC LE 

LKBSV-BLKASTQED LE 7 
RSBSV-VALINVLD LE 7 


LKMSGS$B_LSTATUS(R2) ; Clear LKB and RSB status fields in msg 
#*C<LKBSM_BLKASTQED!- =; Set specified LKB status bits 
LKBSM_ASYNC>,LKBSW STATUS(RO) .L MSG$B_LSTATUS(R2) . 
#*C<RSBSM_VALINVLDS,-  ; Set specified RSB status bits 
RSBS$W_STATUS(R1) ,LKMSG$B_RSTATUS(R2) 

LKBSB~STATE(RO) ,R1 3; Get lock state 


3; Store value block sequence number 


3; Handle special-cased lock states 


DISPATCH 
< 


BUG_ CHECK 


Lock state is RETRY or SCSWAIT. 
senversien request as new lock requests 
that is what the master copy should hold at this point. 


> rebui 


R1,TYPE=B, PREF IX=LKBSK_,- 


<GRANTED, $>,- 
<CONVERT,50$>,- 
pity Pe | 0$>,- 
<RETRY, 20$>,- 

<SCSWAIT, 208>,- 


LOCKMGRERR , FATAL : Illegal lock state 
This must be a 
n this state aren't even 
ST address in the message because 
e 


Store the old blocking hang 
n change 


3; the lock state to GRANTED. 


MOVL 


LKBSL_OLDBLKAST(RO),- ; Store old blocking AST address 


BSE =1986 PP:28:23 UEVSUOR.SRESBstRcock.mans2 °°%° cif} ve 


PLRASTFLG (RE) 


GRANTED ,R ; Set state to GRANTED 


R1,LKMSGSB_LCKSTATE(R2) ; Store lock state 


°o 
to 
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«-SBTTL LCKSRCV_LOCKREQ = Receive lock request 


+4 
FUNCTIONAL DESCRIPTION 
This routine receives new lock requests from the remote 
oretes. The other apetes is the process system and this system is 
the master system. Root lock requests are special-cased in that 
the root directory logic is involved (see below). 
CALLING SEQUENCE: 


JSB LCKSRCV_LOCKREQ (called from SCS received message routine) 
IPL must be at IPL$_SYNCH 


INPUT PARAMETERS: 
Address of 
Address of CDRP for response message 
; OUTPUT PARAMETERS: 


Re Address of message buffer 
: e 


None 
; SIDE EFFECTS: 
A message may be sent back as a response 


DESCRIPTION OF DIRECTORY PROCESSING LOGIC: 


If nie is a sub-resource 


SNS 
DBDOWWDWDWIWDWDWODWDODODODWOOWDWOWOOOOOOD 


PPP AAA AAA AAA AAA A AA AAA AA AAO 


Get address of parent resource; 
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7 ; 
78 Search resource hash table for a matching resource; 
rn If Pepource found 

en 
A re If resource is managed locally (CSB address = 0) 

en 
78 65 Handle lock request here; 
A b2 Send response (granted, waiting, blocking, or notqueued); 
7B6 e2 Bugcheck if this is a sub-resource 
786 1655 system managing the resource is the same 
ree 636 systes that sent us this request COIRECTORY LOOKUP) 
en 
A e36 rae response (do locally); 
e 

7B6 3 0 Send response (resend to specified 
78 661 system); 
78 ? § else 
A oe7 : If this is a root resource (PARENT = 0) 
78 665 If this is the directory node for this resource 


R24 


DSTRLOCK - Distributed Lock Manager Lesdente ode 16-SEP-1984 00:33:34 VAX/VMS Os cro V04-00 Page DS] 
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786 (1 ; 
786 1 $ ; create directory entry CENTER IN DIRECTORY] 
ie ! 8 : sleene response (do locally); 
786 1 9: : Send response (re-lookup in eres sery? i 
£8 f ; DIRECTORY RACE] 
786 1 5g ; **augcheck if parent is not managed here (CSID not 0) 
7B6 ore i 3 Handle lock request her 
786 1675 ; Send response granted, “blocking. waiting or 
7B6 1 6 : not queued); 
£8 1677 ; 
re ere 
7B6 ig 0 LCKSRCV “LSCERES: : 
1 63SllCOD are 1681 R3,R1 Move CSB address 
OF C6 BF BB 0789 16 ’ PUSHR #7A<R1,R2,R6-R7,RB-RI-RIO.R11> 
3 DD g7e0 1 PUSHL R5 Save CDRP address 
4C A DD O7BF 1684 PUSHL csest CSID(R3) Convert CSB address to CSID and save 
59 * be Bete 1685 MOVL R2,R9 + Save input message address 
F838' 30 Bre 1 § BSBW CNXSINIT_CDRP t Initialize CDRP 
07C8 1688 ; If this is not a root resource request then get address of parent 
07C8 1689 ; RSB (needed for hash table search) and verify that the resource 
gre 1930 3; is tat on this system. 
57 D4 orce 1698 CLRL sume no parent ase 
5624 AD D9 O7CA 169 MOVL sen PARMSTLKID(R9), rb * : Get parent lock 
) ae 7CE 1694 BEQL ; pe parent - this is a root resource 
51 56 4 700 1695 MOVL R6,R1 Move parent id 
50 20 A9 B 7D 1998 MOVL LKASGSL PARPRCLKID(R9), rd; Get remote parent lock id for verify 
g7ER 28 AY 193 pseu VERIF YREMLKID 3 Ver rit, lockid and convert to LKB addr. 
; Inva 
$5 ag DO O7DD 18399 MOVL  LKBSL_RSB(R Get parent RSB addres 
24 09 = 5 dO 44 1500 208: MOVL R7,LKASGSL ROARRSTLKID(ROS 3; Store in message lor convenience 
O7E5 1708 3; Search hash table for a seteniey resource. The input message 
bees 1704 ; is used as the template to matc 
SFE 1705 ASSUME LKMSG$W_GROUP EQ LKMSG$L Orr eli 
re ?? $ ASSUME LKMSGSB-RMOD EQ LKMSG$W_GRO 
7E 17 ASSUME LKMSG$B- -RSNLEN EQ UKMSGSBR Ke 
Ore Vf } ASSUME LKMSGST"RESNAM EQ LKMSGS$B_ RENLENS1 
3 AQ 9E& O7E5 17 MOVAB LKMSGSL_PARMSTLKID(R9), R4 Point to start of fields to match 
BA9 9A O7E9 1711 MOVZBL LKMSGS$B_RSNLEN(R9), R10° : bet Length of pesoysce name 
A 0 0 O7ED ar ADDL #8,R : : Account for other fields to match 
51 3 A C O7FO 171 MOVZWL LKASG$W HASHVAL(R9),R1 ; Get resource hash value 
00000000'GF 16 O7F4& 1714 JSB EST CRSSRCH HSHTBL : Search hash table 
19 50 9 O7FA 1715 BLBC RO, EXISTING” RESOURCE 
0150 1 re 1718 BRw NEW_RESOURCE 
i 1218 80$: ; Other system sent us an invalid lock id 
153 BUG_CHECK INVLOCKID, FATAL 


vO4=001 ick 


— 
oo 
oc 
or 
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-ENABL LSB 


5$: ; It looks Like we pone perform a directory lookup. However, 
; if we are rebuilding a lock during failover, then additional 
; checking must be performed. 
09 Ads o91 CMPB CLSMSG$B_FUNC(R9) ,= : Is this a rebuild lock message 
08 TRENSGSK REBLOLOCE 3; (only sent during failover)? 
09 «#1 BNEQ 10$ 3 No 
7 © 4 MOVL (SP) ,R5 ; Yes, get CSID of requesting system 
F7FO' BSBW LCKSCHECK_DIRENTRY : Check if it's really a directory entry 
oc 5 5 BLBC RO,15$ 3 It's not - build the lock 
0096 1 10$ BRW DIR_LOOKUP ; Do a directory lookup 


; We've found a matching RSB. If the resource is being 

3; managed by another system (CSID non-zero) then treat 

3 this request as a directory lookup. Otherwise, handle it 
; in this system. Registers contain: 


tS SS IQS OOO OSOOOOOSOO 


PPI FMS OPAAAAOAAOOAAO OOM PONE LLL LLL LLL EEE 


‘C9 Cd Cd Cd Cd Od OD Cd Cd Cd CD G9 Cd Cd Cd CD CD G9 CD CD CO CO CO COCO CODCOD COCDCDCDCOCDOBODCSODOD << 


: R5 Address of tg RSB 
3 R6 Address of parent LKB (or 0) 
: R7 Address of parent RSB (or 0) 
: R9 Address of input message 
a | dO MOVL R5,R8 ; RB will be used to point to RSB 
54° 38 AB 00 MOVL  § RSBSL_CSID(R8),R4 : Get CSID 
—E5 12 BNEQ 5$ ; Do a directory lookup 
000002 15$: -1F NE CAS$_MEASURE 
00000000'GF 06 INCL G*PASS$GL_ENQNEW_IN 


OGDOQOCOCOCGCOSOSOGVOOSCOGOGCOSGCOOCOOCOOOOCOOGGOOOOOOSOOSO Or 


Co C0 Co CD be J i 


5 
5 
0 
¢ EXISTING RESOURCE : 
; 
0 
: 
0 


n queyes must be empty and the requested lock mode must be 
; compatible w 
778 3 any locks on the wait queue in states other than LKB 


gen 30 BSBW BUILD_LKB 3; Build the lock block 
1750 =€9 BLBC RO,198 ; Exit on any error 
58 A6 oF dO B MOVL (SP) ,LKBSL_CSID(R6) ; Store CSID of requesting system 
09 A997 F CMPB = CLSMSG$B_FONC(R9) ,- : Is this a normal Lock message? 
0 ° SLERSGSK NEWLOCK ; (as opposed to a failover message) 
10 13 BEQL 20$ ; Yes 
09 Ads «91 6 CMPB CLSMSG$B_FUNC(R9) ,- ; Is this a rebuild lock message? 
8 7 gL EMSOSK REBLLOCK 
\ 7 BNEQ 18$ ; No, must be a directory entry message 
o1Cc B 17 BRW REBLD_LOCK ; Yes, rebuild the lock 
771 188: BUG_CHECK LOCKMGRERR, FATAL; Disagreement regarding who's mastering 
4 77 3; this lock tree 
01D1 = ‘31 r of 19$: BRW BLOLKB_ERROR2 ; Branch extender 
4 775 208: ; Now seq if the lock can be granted. To be granted the conversion 
4 77 3; and wait 
? 77 


th the group grant mode of the resource. (Actually, 
$w_WAITING 


2% 


; | 
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r 1778 ; are ignored). 
r 1f 1 ASSUME RSBSL_WTQFL EQ RSBSL_CVTOFL+8 
50 18 a8 BF 45 17 : MOVAL RSBSL_CVTQFL(R8),RO ; Get address of conversion queue 
0 D 49 1784 CMPL RO, (RO) ; Queue empty? 
ee 4C 1785 BNEQ ; No 
50 4 C of 17 § ADDL #8,R0 i; Get address of wait queue 
) a | D 51 17 MOVL RO,R1 : Save in R1 
51 60 D1 0854 17 : 30$ CMPL = (RO) , R1 ; Queue empty? 
1A 12 2 i 3 BNEQ ; No 
0858 1781 35$: ; No waiting requests (or RECOVER bit is set); is the lock compatible? 
51 34 A6— 9A Beep 1598 MOVZBL LKB$B_RQMODE(R6),R1 ; Get lock mode 
55 OC AB 9A O85D 1794 MOVZBL RSBS$B_GGMODE(R8),RS : Get group grant mode 
18 OOO00000'GF45 51 €1 pee) 102? BBC R1,G*CCKSCOMPAT_fBLCR5),52$ :; Branch if incompatible 
086A 1599 ; Lock can be granted 
086A 1798 
O0000000'GF 16 Baen 1799 JSB G“*LCKS$GRANT_LOCK ; Grant the lock 
016C = 31 bee 1390 BRW LOCK_GRANTEB 
087 1306 40$: ; Wait queue was not empty. Skip over locks not in LKBSK_WAITING 
0873 180 ; state. If we find even one lock in LKBSK_WAITING state, then 
4 1308 ; this lock is not grantable. 
50 60 00 0873 1806 MOVL (RO) ,RO :; Get next lock on wait queue 
FF 8F 91 0876 1807 CMPB #LKB$k WAITING,- ; Is it in LKBSK_WAITING state? 
FE AO 0879 1808 LKBSB_STATE-LKBSL_SOFL (RO) 
D7 —s «12 bare ! % BNEQ 0$ : No, skip over it 
087D 1811 50$: ; Lock cannot be granted now due to other locks in the wetting 
0870 13i¢ ; or conversion queue. However, if the RECOVER bit is set, then 
+143 131? ; ignore these locks and try granting it anyway 
07 €0 0O87D 1815 BBS #LCK$V_RECOVER,- ; Branch if recovering a lock 
D7 28 A6 O87 1816 LKBSW_FLAGS(R6) ,35$ 
e in 52$: : hock ponnet be granted now. Queue it unless LCKSM_NOQUEUE 
O88 1820 . ‘ 
02 €0 08 1821 BBS #LCK$V_NOQUEUE ,- ; Branch if the NOQUEUE bit is set 
15 28 a6 8 4 1 : LKBSW_FLAGS(R6S ,55$ 
46 A B0 ee | MOVW RSB$W~ROSEQNM(RS) ,- ; Store request sequence number 
10 A6é : A 1824 NS Mts pestle fs 
46 AB Bb C 1825 INCW RSBS$W_RQSEQNM(R8) ; Increment sequence number 
00000000 ' GF 16 O88F 1 § JSB G*LCKSQUEUVEWAIT ; Queue it 
0 . 8F 90 4 .' MOVB #LKBS$K_RSPQUEUED,RO ; Set response state 
148 O51 44 ] 8 BRW LOCK_QOEUED 
33 : 9 55$: ; Lock should not be queued. Clean up and exit. 
90000002 9C 1 $ -1F NE CAS_MEASURE 
00000000'°GF D6 ., ae INCL G*PAS$GL_ENQNOTQD 
n ! : ~ENDC 


easter 
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2C0 0 A2 1 BSBW LCKSDEALLOC_LKB ; Deallocate LKB, lockid, etc. 
50 oo0s se 30 eA 1 5 MOVZWL #SS$_NOTQUEDED,RO + Return status 
67 11 at ! 5 oot BRB RESPOND. NOTOED 
OBAC 1840 -DSABL LSB 


a _ ——— — 
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~MPARBARBARBARAAAAAAAAALALALS LEASE LA SEES SESSA SERS ESE ESSERE SES REE ERE RSET SS 


3 Directory handling and error routines 


FRR RARE AEE REA EAA AAAKEKAE RARE eee 


-ENABL LSB 


DIR_LOOKUP: 
; Treat this request as a directury lookup request by returning 
; the CSID of the system managing this resource. f the 
; CSID matches that of the requestor then return a different 
; response state to indicate this. R4 contains CSID of 
; system managing resource. 


L 

q 

g 

4 

5 

: 

5 

0 

1 

j 

4 
00000000 er bs @ ine CAPASSCr CDIR_IN 
; .ENDC 
1 
i 
4 
5 
5 
8 
9 
0 
1 
: 
4 
5 
$ 
5 


48 TSTL $L_PARENT(R8) ; Directory entries must be roots 


RSB 
BNEQ 40$ ; Error 
RESPOND_RESEND: 
POPL 


-> 
~_o 


R3 Restore CSID of incoming message 
R Restore CDRP address 

Is requestor managing resource? 
Yes, do cecal ly (on remote system) 
No, return CSID of other system 
Set response state 


Pune Pwuvw 


nM 
o 
> 
w 
o 
UP OSIM 


wn 
Ono 


408: BUG_CHECK LOCKMGRERR, FATAL 


RELOOKUP: 
; Send a response telling requesting system to resend this 
request to directory system (CSID in R4). Note that it is 
possible for the requesting system to be the directory system 
for this resource in which case a ‘‘do locally’ response is sent. 
This situation is caused by the following race: 
o This system masters the resource 
o The other system (directory system) sends a request here 
o This system removes the directory entry 2 & 
o This system recetyes the request and returns ‘‘do locally 
The danger with this race is that the other Byers doesn't realize 
it has a directory entry so doesn't set the DIRENTRY bit. What 
saves us is that it is already set and LCKSRCV_RMVDIR will not 
delete the RSB. 


CLRL pre _HSHCHN(R11) ; Remove RSB from hash chain 


MOVL 
JSB G*EXESDEANONPAGED : Deallocate RSB 
BRB RESPOND_RESEND 


96 DIR_ENTER: 
39 = ; If we are the directory system for this resource, then handle 
98 3; this request by making a directory entry. Otherwise, tell requesting 


Seooconnnnnnnkeee 
SVCOVTVTVCAMAOOOOoOWAIW 


DNR IPIPIPIPOPOPINPIPINPININININININIM MD OPWOS & I~ 


—~— 0 OD 
-—Coof 


50 
00000000 ' GF 
d8 


t 
¢ 
0 
0 
0 
Q 
Q 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
6 
0 
0 
0 
0 
0 
0 


(5-5-4 - 4-4-1 db -A_A_A_A_A_ AAA AAA 
aH 


0000.00 09 09 G9 Cd G9 Cd Od Cd CD Cd Od 9 CO CD CD 


s 
-o 
oc 
cr 


<=“ 


lalelelelelelelejlelelelelelelelelelelelolele lol ela) alee ewe eee e111 eee 


DODOOOO OOOO OOOVOOOOODODOOO OO OOOO O0O0O0O0 OW CoCoco cD CD CD CD COON CD CD 


BPP FAA PIPINININININID 2 9 2 OO OO | HM OOOCOOCOCOCOCOOCOCOO TM AHN HN HMMmMmoOOOT 


DOM OOW EF QUA TF WOON OO WWIWIWMWWAWNIE FOO OOOODWVPIMNINIO OO FPOOMO POM THN" 
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: system to re-lookup the request in the directory as we've been 
; bagged by a directory lookup race. 


OVL G*LCKSGL_DIRVEC,R3 ; Get address of directory vector 

MOVZWL RSB$W_HASHVAL (RS) ,R1 ; Get hash value 

CLRL R : Clear high oreer hash value 

EDIV - g( Rs) R1 jR0. Ro ; Compute hash index (in R1) 

MOVL (R YCRIS,R : Get directory system 

BNEQ RELOOKUP : It's not us 

BISW #RSBSM_DIRENTRY,- ; Set directory entry bit 
RSBSW_STATUS (RBS 

IF NE CA$_MEASURE 

INCL G*PAS$GL_DIR_IN 

-ENDC 

POPL R3 ; Restore CSID 

POPL Re ; Restore CDRP addre 

MOVL R3,RSBSL_CSID(R8) ; Store CSID in RSB te form dir. entry 


RESPOND_DOLOCL: 
: gh | response that tells the requestor to handle the lock request 
$ y- 


MOVB cee _RSPDO Otc” ; Store response state 
CDRPSL~VAL2+2(R55 
BRB NOTQUEDED_EXIT 


RESPOND -NOTQED: 
; Lock was not queued due to an error. Status is in RO 
: (e.g. SSS_NOTQUEUED) 


POPL 7 
MOVW RO,CDRPSL_VAL 


2(R5) 
MOVB #LKBSK _RSPNOTQED,- 
CDRPSL “VAL2#2(R55_ 


Restore CSID 

Restore CDRP address 
Store error status 
Store response state 
and fall thru to ... 


NOTQUEVED EXIT: 
MOVAB 


W*BLD_RSPMSG,- ; Store address of message build 
corPSC _MSGBLO(RS) 3 routine 
QUEVED_EXIT: 
MOVL *CLUSGL_CLUB,RO ; Get address of CLUB 
MOVW CORPS muted Q{R0), - ; Store membership seq. num. 


POPR “R2, Re. a R8,R9,R10,R11> 
BSBW CNKS SED MSG RESP * : Send messa 


response 
Is etesue Ss. NOSUCHNODE ? 


CMPW #SS$_ROSUTHNODE : 
BEQL 6 . : Yes 
MOVL : No. “SSS -NODELEAVE is okay 
JMP Bee RP SDEANONPAGED + Deallocate CDRP 
60$:  BUG_CHECK LOCKMGRERR, FATAL; CSID invalid 
.DSABL LSB 


br} 


te 


vo4=001 ick 
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FRA RA RAAT AEKAE AAA AEA AA AREA AEA AAA EAATAAAAKE AAA eReeeKe Tee Kee eee 


COCoCOOOOOWN— 0 & SF OOCOCOCOCOCOOOOOOOOCOCOCOCOOCOO ra 


o 
® New Resource 
a 


~MARAAARAAAAAAALALALASALEAASALAALALAL ASSES ERAS AR EERE SESE REE ASSES EEE EE ERECT EES 


Resource was not found so it must be created. If it's a root 
resource and we are the directory system, then a directory 
entry will be made but the lock will be handled by the remote 
system. If it's a root resource but we are not the directory 
system eo the remote system will be told to re-lookup this 
resource in the gtrerterr. If it's not a root resource then the 
lock request is handled here. Registers contain: 

R Address of parent LKB (or 0) 

R Address of parent RSB (or 0) 

R9 Address of input message 

0 Length of resource name+8 

1 Address of last RSB in resource hash chain 


= 
zDD 
_—— 


NEW_RESOURCE : 
MOVAB RSBSK_LENGTH-8(R10),R1 ; Compute size of RSB 

JSB G*EXESALONONPAGED ; Allocate RSB 

BLBC RO, 3; Didn't get one 

MOVZWL R1,RSBSW_SIZE(R2) ; Store size and zero depth 

MOVE  #DYNSC_RSB,RSBSB_TYPE(R2) ; Store type 

MOVL  R2,R8 ; R8 


L 
Q 
5 
$ 
5 
0 
1 
§ 
4 
5 
; 
5 
0 
1 
§ 
4 
5 
51 48 AA 8 
00000000 ' GF 
48 8 
, points to RSB 
: Initialize various fields in RSB 
8 
9 
1 
g 
4 
5 
; 
5 
’ 
g 
4 
5 
5 
9 
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oo 
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ASSUME RSBSB_CGMODE £0 str get 


L F 
ASSUME RSBSL-WTQFL EQ RSBSL_CVTOFL+ 
ASSUME RSBS$WIRQSEQNM EQ RSBSW_HASHVAL+2 


MOVL RB, RSBSL_HSHCHN(R11) ; Make Last RSB point to this one 
CLRL RSBS$L_HSACHN(RB) : This one ends the chain 
MOVL R11,RSB$L_HSHCHNBK(R8) ; i 


; Point to previous one 
MOVAL RSBSL_GROFL (RB) .RO 


; Initialize all three queue headers 


MOVL RO, (R1)+ ; Granted queue 

MOVAQ (RO)+,(R1)+ 

M RO, (R1)+ ; Conversion queue 
(R1)+ 

{)+ ; Waiting queue 


RO; (R 
CLRQ  RSB$Q_VALBLK(RS 
CLRQ  RSBSQ~VALBLK+8( 
CLRQ  RSBSL“VALSEQNUM 


L 0 
MOVAQ (RO)+ 
RO, (R 


8) ; Clear value block 
R8) 3; Clear value block 4 number, 

; ref. count and blocking AST cnt. 
CLRL RSBS$B_GGMODE (R8 ; Clear modes, status 
MOVZWL LKMSGSW cetgs 3 


; Store hash value, clear request 
BERSU_HASHVAL ( 


; sequence number 
; Move parent RSB address, group number, 
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48 AB 24 AD 


00000000 ' GF 


51. 34 AG 
00000000 ' GF 
02 


2A AG 
50 «OFA 8F 
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WO 
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LOCK_GRANTED: 
BICW 


ono 
mo 
wn 


Ww 9 FN 


LOCK er yr 


SOOOQOOOOCOOOoOOoOooooo 
wooOoOwowowowowowowovons 
TH HMMMMMmMMmmnrcrnicny 


LKMSGSL PORee LER TOCRY) .93 access mode, res. name Length and 
RSBSL_PARENT(R ; resource name to RSB 


; If this is a root resource, then just create a directory entry 
; and don't build a LKB. 


TSTL R7 ; Is this a root resource? 
BNEQ 60$ 3 No 

BRW DIR_ENTER ; Yes 

BRw BLOLKB_ERROR2 3; Branch extender 


; Received a lock request for a lock whose parent is not managed 
3; by this system. 


BUG_CHECK LOCKMGRERR, FATAL 
ADDB3 #1,RSB$B_DEPTH(R7),- ; Set depth 

RSBS$B_DEPTH(R8) 
INCW RSBSU- _REFCNT(R7) ; Incr. parent's reference count 
MOVL RSB$L_CSID(R7),- ; Clear CSID by copying parent's 
ance B5B5L_ CSID(RB) 3 prey verifying it’s zero 


; Build the LKB. 


~IF NE CAS$_MEASURE 
INCL G*PAS$GL_ENQNEW_IN 


~ENDC 

BSBW BUILD_LKB 

BLBC RO,BL tke Unable to build LKB. Status in RO 
MOVL (SP) ,LKBSC_CSID(R6) 


Store CSID or request i ng system 
Is this a rebuild lock message 
sony sent during failover)? 

Yes 


CMPB = CLSM$G$B_FONC(R9) ,- 
#LKMSGSK~ REBLDLOCK 
BEQL REBLD_L 


; Grant the lock. 


MOVZBL LKBSB RQMODE (R6) ,R1 3; Get poquested mode 
JSB G*LCKSGRANT_LOCK_ALT ; Grant the lock 


PLteer ryaty eet) ; Got set spuriously by common code 
BSW STATUS (R64) 
MOVB PLEBSR. RSPORANTD. RO ; Set response state 


Lock response state is in RO. It is either RSPGRANTD or 
; RSPQUEVED. I.e. it is one of the states that actually 
> built and queued a LKB. Send response message. 


POPL Ri ; Restore CSID 

POPL R ; Restore CORP addr 

MOVAB W*BLD_LOCKRSP,- 
CORPSC_MSGBL LpiR 


5) 
MOVL Ree CORPS$L_VAL1(R5) 3; Store LKB address 


ren 


ess 
; Store address of message build routine 


5 | 
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enter a 


Dd 
K 
meet) ae 


24 


oc 


MOVB RO, CORPSL_VAL242(R5) ; Store response state 
BRW QUEVED_EXTT 


REBLD_LOCK: 
; Rebuild lock (only performed during failover) 
FSFF* 30 BSBW LCKSREBLD_LOCK ; Rebuild the lock 
bes ‘11 BRB LOCK_GRANTED 3 Send the response 


| 
| 
| 
} 
| 
| 


; Error status in RO. Parent RSB address in ‘7. 


; Address of previous RSB in hash chain in R1 Deallocate RSB. 


20 43 PUSHL RO i; Save RO 
40 A 8 DECW RSBSW_REFCNT(R7) ; Decrement's parent's reference count 
$0 +; heer . < HSHCHN(R11) ; Remove from hash chain 
00000000°GF 18 JSB G“EXESDEANONPAGED ; Deallocate RSB 
50 8ED POPL RO ; Restore RO 


BLDLKB_ERROR2: 


L 
Q 
4 
8 BLDLKB_ERROR: 
4 
: 
0 ; Error handling depends on whether this is a rebuild lock 


COOOCOCOCGCOCOCOCCOCOOCOCOCOOCOCOCOOCOOSOOO or 
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91 ; (during failover) or a lock request during normal operation. 
38 ; During normal operation, all errors other than SS$_INSFMEM 
9 3; are sent back to the other system. SSS$_INSFMEM is handled 
94 3 by break ing our connection as a form of waiting. 
A 95 ; During failover, we bugcheck here with an appropriate 
oA 38 ; type of resource exhausted bugcheck. 
09 Ad) =—s«91s«*OOA 38 CMPB CLSMSG$B_FUNC(R9) ,- ; Is this a rebuild lock message? 
08 OA 9 #LKMSG$K_REBLDLOCK 
$2 13° OA 0 BEQL 40$ : Yes 
IN :; Is it insu cient memory? 
0000' 8F 3 a 5 1 Hay RO, #SS$_INSFMEM : it i ffici 
; Yes 
FEED 31 OA 08 BRW RESPOND_NOTQED ; No, send error back 
pede A 4 30$ POPL RB ; Restore C 
22 EDO OA 5 POPL R ; Restore CORP address 
50 5 pO OA $ MOVL R5,R0 
00000000'GF 16 OA JSB GE XESDEANONPAGED - Deallocate CDRP 
FC6 er BA OA 8 POPR #*M<R1,R2,R6,R7,R8,R9,R10,R11> 
1 4 A 0 MOVL R1,R3 ; Move CSB address 
F5C1" A 19 BSBW CNXSRCV_REJECT ; Reject this message 
5 " } RSB 
j 
A4 18 40$: ; Unable to rebuild a lock éyring failover. Bugcheck 
rv 13 3; with a (hopefully) useful bugcheck message. 
A] _IN ; Is it insufficient non-paged pool? 
0000 * 8F 30 J wv ! cy 4 gfs8s INSF MEM HN it insuffici d \? 
; No 
AG 18 BUG CHECK INSFPOOL,FATAL ; Yes 
0000 ' 8F 30 3} “ 4 50$: te 80,0588 MOLOCKID ; ts it no lockids? 
; No 
A 1 BUG_CHECK INSFLOCKID,FATAL; Yes 
7 § 60S: BUG_ CHECK LOCKMGRERR, FATAL; Unknown error (status in RO) 


3 
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your bot LCKSRCV_LOCKREQ - Receive lock request ~$FE 138% 90:33:25 SYSLOA.SRCJDSTRLOCK.MAR;2 (16) 
A A 1 5 FRRAAAAA AEA AK ETEK AE HAAR AEA AAAERAAAAAHRAAAKAARAKAAAeeeeeKeeeeteeeeeeeeeee 
ASA 21 ; 
ASA i 5 3 Message Build Routines | 
A rn 1 § WITTITIIIIILIIITITITILI TL TLL LLL LLL LLL LLL LiL iLL iii iii ii iiiiiiiiiey | 
ASA 21 
ASA 21 ? ; BLD_RSPMSG is a generic gessage building routine that simply 
ASA 21 ; ; copies a fixed queduord from the CDRP into the message 
ASA 21 ; buffer, Since this is a response message, the RSPID sent 
ASA 2134 ; to us is returned. Registers contain: 
ASA 2135 : Re Address of message buffer 
: : ! § 3 R Address of CDRP 
" : ! 8 ASSUME LKMSGSB_STATE EQ LKMSGS$L_CSID+6 
ASA 140 BLD_RSPMSG: 
AeA 141 a ASSUME CLSMSGS$B_FUNC EQ CLSMSGS$B_FACILITY+1 
08 A2 0182 BF B80 n38 136 OVW PLKRS Oak SNELL OCK OS™ ; Store function and facility codes 
0A60 2144 i CLSMSGSK~FAC_LCK,CLSMSGSB_FACILITY(R2) 
2c AS) 7D BAG 145 MOVa CORPS. vVAC1(R5),= ; Copy value into message buffer 
18 Ag A6 146 LKMSGSC_CSID(R25 
34 A BO 0A6 14 MOVW CORPS. QVAL3(R5),- ; Store membership seq. num. 
Oc A2 0A68 148 LKMSG$Q_MEMSEQ(R2) 
0 age 3150 = 
A 151 
Once 133 ; BLD_LOCKRSP builds a response message for lock requests. 
ee 137 5 sate Feagenes anese e "PL gMty eer taker akan ieee 
; ed (an eued) a - Ina er , (e.g. 
OA6B 2155 3 directory lootuse! a simple response is built by BLD_RSPMSG. 
0A6B 136 ; Registers contain: 
A6B 215 3 R Address of message buffer 
GASB 138 3 R Address of CS 
A6a 215 3 8 Address of CDRP 
OA6B 2160 3 CORP$L_VAL1 contains address of the LKB 
“ae 19 ; ALL registers except RO and R1 must be preserved 
AGB 188 : Note: This message build routine uses pointers (to LKB and RSB) 
A6B 2164 ; that will not be valid if we started a state change. Therefore, 
A6B 2165 ; it is necessary to validiate the penbersh ie sequence number 
wey 198 3; before using any pointers stored in the CORP. 
KRSP: 
Ne 189 seat cit ASSUME CLSMSGSB_FUNC EQ CLSMSGSB_FACILITY+1 
08 A2 0182 8F BO OA : 1 MOVW Peers NEL OCKaO- ; Store function and facility codes 
va \7¢ i CLSMSGS$K FAC CK. CLSRS6SB FACILITY(R2) 
ie AS B0 Ar} 107 MOVW tts ep le Pen ; Store membership seq. num. 
51 $6 Ag DO AG 175 MOVL CSBSt cCuB(R3) Ri ; Get address of CLUB 
OOAC C1 Bi OQOA7A 217 CMPW CLUBSQ_MEMSEQ(R1),- 3; Have we done a state change? 
34 AS AZ 173 ae RPSL-VALS(RS) 5 ie 
o ue RE eR Reem uatiep ane Se cece oft 
i9 a3 oft ° 183 LKMSGSL_MSTLKIO6(R2) : 
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RCV. LOCKREG - Receive lock request pase 90:33:25 SYSLOA.SRCIDSTRLOCK.MAR;2 ’ (38) 
A 1 § MOVL LKBSL_REMLKID(RO) ,- ; Store process lockid 
A 1 LKMSGSL PRELKID(R2) 
A 184 MOVB CORP " VAL tr Ele ; Store response state 
A 185 LKMSG$B_STATE(R2) 
A 1 § MOVW LKB$W_STATUS(RO),- ; Store LKB status 
A9B Ot LKRSGSu LKBSTATUS(R2) 
AIA 21 8 ASSUME LKBSK_GRANTED GT 
ASA 1 ASSUME ete LT 
ASA 1 TSTB ire B_STATE(RO) : Is lock granted? 
ASD 21 BLEQ 0 3; No 
ASF 138 MOVL LKBSL_RSB(RO) ,R1 ; Get RSB address 
AA 19 MOVG RSBSQ~VALBLK(R1),- : Store value block 
AAS 219% LKMSGSQ VALBLK (RE) 
AA 195 MOVQ RSB$Q_VALBLK+8(R1),- 
AAB 196 LKMSGSQ_VALBLK+8(R2) 
AAD 219 MOVL RSBSL_VALSEQNUM(R1),- ; Store sequence number 
AB 198 LKMSGSL_VALSEQNUM(R2) 
AB 19 MOVW RSBSW_STATUS(R1),- 3; Store RSB status 
AB 00 LKMSGSW_RSBSTATUS (R2) 
ong 1 RSB 
ytd $8 10$: MOVW LKB$W_RQSEQNM(RO) ,- ; Store request sequence number 
ABB 2204 LKMSGSW_ROSEQNM(R2) 
ABE 32 RSB 
ABE $9 208: 3; We've done a membership state change between our SEND_MSG 
ABE 4 ; and calling the message build routine. Just send back a RETRY 
re] 9 3 status. 
OAB 11 MOVB #LKBS$K_RETRY,- ; Store RETRY status 
OAC iF LKMSG$B_STATE(R2) 


RSB 
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0000000 * GF 
01 50 


*00000000 6F 1 $0 


08 A2 00350060 


oc A2 
50 00000000' GF 
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Code 19 -00 
REID DSTRLOCK.MAR;2 


-SEP-1984 00:33:34 
met 90:33:25 
-SBTTL BUILD_LKB = Build Lock block 


ot 
FUNCTIONAL DESCRIPTION: 


This routine builds LKBs for received lock requests that are 
being handled by this system. 


CALLING SEQUENCE: 


BSBW BUILD_LKB 
INPUT PARAMETERS: 
Re Address of t pecent LKB (or 0) 
& Address of 
R9 Address of input message 


IMPLICIT INPUTS: 
Various fields in the input message are used 
OUTPUT PARAMETERS: 


RO Completion code 
R6 Address of LKB 


COMPLETION CODES: 
SS$_NORMAL 
SS$_INSFMEM 
SS$-NOLOCKID 

SIDE EFFECTS: 


RO - R4 are destroyed 


Successful completion 
Insufficent memory to allocate LKB 
No lock ids 


NO_LOCKIDS: 


: No lock ids. Deallocate LKB and try to extend table. 


MOVL R2,RO ; Address of LKB 

JSB G*EXESDEANONPAGED ; Deallocate it 

JSB G*LCKSEXTEND_IDTBL ; Extend table 
RO,BUILD_LKB ; Success, repeat routine 


BUILD_LKB: 
MOVZWL #LKBSK_LENGTH,R 3; Size of LKB 
JSB Sin trcnty ; Allocate it 
BLBC UiLD Unable to allocate it 
MOVL acon n$c_C tore Size and type 
KBSK Oy rkasy. size che} 
CLRL eit ti PID(R2S Clear PID 
MOVL ESE CKSGL NXTID,RO t Get next lock id 


Page 47 
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V 501 BUILD_LKB - Butta lock E Bloc « Hie 7 90:33:25 SYSLOA.SRCJDSTRLOCK.MAR;2 
cB 3 AF7 if BEQL NO LOCK IDS ; No more - return error 
51 Q0000000'GF DO OAF 7 MOVL G*CCKSGL_IDTBL,R1 ; Get address of lock id table. *** May 
B 74 : combine with next instr. if no loading 
30 A2 28 BO 0B 75 MOVW RO ROSA : Store lockid index 
1 614 bE B04 A: MOVAL (RI)CROJ-R1 ; Get address of lockid table entry 
aes ig ‘GF 61 C QB08 7 MOVZWL (R1),G*LCKSGL EY, : Update ptr to next free id 
A2 02 A1 B80 OBOF £8 MOVW § §2(R15 LKBSL_L tRID¢ (R2) } Store lockid sequence number 
61 : DO 0B14 227 MOVL  R2,(RI ; Store LKB address in table entry 
28 AS D B17 0 MOVL R8,LKBSL_RSB(R2) ; Make LKB point to RSB 
48 A $ D B18 1 MOVL R6,LKBSL— _PARENT (R2) ; Point to parent LKB 
0 1 BiF ¢ BEQL 10$ ; No parent 
4C A6~ «BS : } i INCH LKBSW_REFCNT(R6) 3; Incr. parent's reference count 
+3 2 5 10$: ; Build portion of LKB that comes from input message 
0B24 § ASSUME LKMSGSW_FLAGS £0 arty PRCLKID+4 
0B24 8 ASSUME LKMSGS$B_ RQMODE €EQ KMSG a FLAGS+2 
0B24 8 ASSUME LKMSG$B"  GRMODE €EQ LEMS CSB~ ROMODES1 
; 2 + ASSUME LKMSGS$L~  BLKASTFLG EQ LKMSG$B_ GRMODE +1 
56 52 00 QB24 38 MOVL R2,R6 ; Use R6 for LKB from now on 
5 14 AD =9E 0B27 9 MOVAB LKASGSL POCLETD CRP? «Oz ; Point into message 
54 A6 «6 883)—s—s«éisé«éOiBV2'B 94 MOVL )+,LRB$L_REMLKID(R6) ; Store process lock id 
28 A6) «=683—ts«wBODCé#SBPF 95 MOVW CR De TRBSH” FLAGS«RS) 3; Store flags 
34 A6 83 =6©BO SOB ; 38 MOVW (R3)+,LKB$B_RQMODE (R6) Store lock modes 
20 A6 «B3—tséO 0837 97 MOVL  (R3)+,LKBSL “BLKASTADRIRGS Store block ing AST flag 
0B38 Sg : Store EPID of owner of lock unless LCKSM_CVTSYS is set in 
0838 00 3; which case, store 0. Also store deadlock priority if not system 
bese 4 3 owned. 
50 D4 0838 08 CLRL RO ; Assume system owned 
06 £0 7: D 04 BBS #LCK$V_CVTSYS,- : Branch if it is system owned 
09 28 A6 B3F 05 LKB$W_FLAGS(R6) ,20$ 
50 10 A9 00 pete § MOVL LKMSGSL_EPIDNEW(R9).RO ; Get EPID 
4C AD DO 0B4 0 MOVL mite DLCKPRI_NEW(R9) ,- 
24 Ab 0B49 08 KB$L_DCCKPRI(R6) 3 Store deadlock priority 
1406 50 00 bese oe 20S: MOVL ROe OP KBSL _EPID(R6) 3; Store EPID or 0 
dé y 3; Finish remainder of LKB 
10 BO OB4F 13 MOVW #LKBSM_MSTCPY,- ; Store master copy flag 
2A Ab 0B 14 LKBS$W_ STATUS (R6) 
08 €1 15 BBC #LCK$V_PROTECT,- ; Branch if this is not a protected lock 
06 28 A6 B 16 LKBS$W_FLAGS (R65 ,30$ 
0200 8F A8 28 1 BISW LKBSA_PROTECT,- ; Set PROTECT status bit 
2A Ab C 18 LKBSW_ STATUS (R6) 
4C A6 BG af 19 30$: CLRW iti REF CNT (R6) ; Clear ref. count 
50 00° B0 o MY Rove S*#SS$_NORMAL ,RO ; Store success status 
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k Mana Loadable Code 16-SEP-1984 233: 
Deallscate 6 ike. ti moet 7 90:3 3 


-SBTTL LCKSDEALLOC_LKB - Deallocate a LKB 


++ 

FUNCTIONAL DESCRIPTION: 
This routine is used to deallocate a LKB and perform 

ad se tonat cleanup such as deallocating the lock id. and 
ng the parent's reference count. 


CALLING SEQUENCE: 


adjust 


BSBW LCKSDEALLOC_LKB 


INPUT PARAMETERS: 


R6 Address of LKB 


; OUTPUT PARAMETERS: 


None 


SIDE EFFECTS: 


RO - R3 destroyed 


LCKSDEALLOC_LKB:: 


; Remove lock from timeout queue, 

BBCC #LKB$V_TIMOUTQ,- 3 
LKB$W_STATUS(R6) ,5$ 

REMQUE LKBSL_ASTQFL(R6) ,RO : 


; Deallocate lock id. 


MOVZWL LKBSL_LKID(R6),RO : 
MOVL  G*LCKSGL_IDTBL.R1 : 
MOVAL (R1)CROJ-R1 ; 
MOVW  G*LCKSGL_NXTID,(R1) 

ADDW3 #1 ,LKBSLLKID+2(R6) 

BVC 208 ; 
MOVW #1, 2(R1) 

MOVL RO,G*LCKSGL_NXTID ; 


3; Decrement parent LKB's reference count 


MOVL EBS. PARENT (RG) .8O $ 
BEQ 0$ 3 
DECW LE BOM REP COT (RO) : 
BLSS 0$ : 
3; Deallocate LKB 


MOVL  R6,RO 
JSB G*EXESDEANONPAGED : 


o VO 
SYSLOA.SRCJDSTRLOCK.MAR;2 


if it's on it. 
Is lock on timeout queue? 
Yes, remove it 


Get lock id index 

ae Combine with next instr. 
Point to table entr 
Store next id in th 
ner. and store sequence number 

n't overflow to a system address 

3; Overflowed - restart seq. number at 1 
This id becomes the next one 


S2cRts 3 


Get address of parent 


t 
Decr. parent's reference count 
Went negative 


Deallocate LKB 


elt 


Lk 
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Mean bos LCKSSND_GRANTED = Send ; lock granted me 6-SEP-1984 90: :42 (CSYSLOA.SRCIDSTRLOCK.MAR;2 - (19) v4 


oy ¢ -SBTTL LCKSSND_GRANTED = Send a lock granted message 
BAF 4 j++ 
+ 5 ; FUNCTIONAL DESCRIPTION: 
BAF 5 ; This routine sends a lock granted message to the process system. 
ear 3 3 We are the master system for this lock. 
OBAF 30 : CALLING SEQUENCE: 
BAF 36 ; JSB LCKSSND_GRANTED 
ow + 3 IPL must be at IPL$_SYNCH 
OBA 95 : INPUT PARAMETERS: 
OBAF 38 : R6 Address of LKB 
aa 38 3 RB Address of RSB 
OBAF 2400 : OUTPUT PARAMETERS: 
OBAF 2401 ; 
a 
OBAF 404 : SIDE EFFECTS: 
OBAF 236 : RO - R5 are not preserved. 
Sear S408 
OBAF 2409 LCKSSND_GRANTED:: 
ES OBAF 2410 BBC #LKB$V_TIMOUTQ,- ; Remove lock from timeout queue 
03 2A A6 0BB1 2411 LKBSW_STATUS(R6),10$ =; if it was on i 
5 OF O0BB4 tig REMQUE LKBS$L_ASTQFL(R6),RO 
AA OBB7 2413 108: #LKBSA_DBLKAST,- 3; Clear deliver blocking AST bit 
A A6 OBB9 2414 LKBSW_STATUS (R6) ; that was set spurious Y 
53 8 A6 4 OBBB 2415 MOVL LKB$L_CSID(R6) ,R3 ; Get CSID of remote system 
F43E" 30 OBBF +18 BSBW CNXS$SACLOC_CDRP ; Alloc. a CDRP and convert CSID to CSB 
25 50 €9 pote ret BLBC ,80 3; Unable to allocate one or CSID error 
Mate 419 ; Put lock ids. into CDRP and then send eye 
OBC5 2420 3; Note: It wight seem preferable to put the LKB address into 
0BCS5S 2421 : the CORP rather than the lock ids. The problem with this approach 
OBCS 24 ¢ : is that the LKB could be deallocated while the thread to 
OBC5 24 3; build and send the message was waiting for resources. 
OBCS 2424 ; So instead, we use the lock ids. and re-validate the LKB. 
BCR 425 ; If we find that the LKB has been deallocated, we no longer 
C 4 § 3; need to send a message. However, there is no way to stop 
C 4 3; sending a message once we are inside the message build routine. 
OBC & 3 ; So instead, we send the message and depend on a lockid mismatch 
dae ? 4 3 at the remote end. 
30 ‘6 dO 3 431 MOVL nits LKID(R6) ,- 3; Store master lockid 
CA CB 24 : CORPSC_VAL1(R55 
4A DO CA 24 MOVL LKBSL_REMLKID(R6),- ; Store process lockid 
OA CD 2434 corPSC VAL (BD? 
50 644A 08 CF 2435 MOVL ESBSt CLUB(R3) ,RO ; Get address of CLUB 
OOAC c 8 D3 4 § MOVW CLUB B_REMSEQ(RO) ,~ ; Store membership seq. num. 
34 A D7 4 f CORPSL-VAL3(R5) 
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v04-00 LCKSSND_GRANTED = Send a lock granted me 6-SEP=1984 17:45:42 CSYSLOA.SRCIDSTRLOCK.MAR;2 (19) 
B09 rf ; Store address of message build routine and send message 
OE'AF 9E OBD 44 MOVAB ®B*BLD erty - ; Store address of message 
4C AS DC 244 CORPSC_MSGBLD(R5S : build routine 
F4IF' 30 BDE 44 BSBW CNXSSEND_MSG_CSB : Send the message 
50 55 8 BE 444 MOVL R5,R ; Address of COR 
00000000'GF 1 BES 44s JMP G*EXESDEANONPAGED : Deallocate it 
54 56 00 445 Gee 80$: MOVL R6,R4 3; Move LKB address 
QOBED 2449 INSERT_ON_TIMOUTQ: 
peep 450 3 £319 conversion error or no CDRPs. Queue LKB to timeout queue 
nad t23 : if insufficient memory. LKB address is in R4. 
0000" 8F 30 ] REED 438 Sa So 0590, Lmernen ; ss it insufficient memory? 
; No 
0040 8F A per 455 BISW #LKBSM_TIMOUTQ,- 3; Set timeout bit 
ga AG OBFS8 496 LKBSW_STATUS(R4) 
re oe b0 bee t2h MOVL Cexe set Astin ; Store immediate timeout time 
64 OE€ OCO02 2459 INSQUE LKBS$L-ASTQFL(R4),- ; Insert at head of timeout queue 
00000000 ' GF He re G*LCKSGL_TIMOUTQ 
05 34 rhe RSB 
pcoa 46s 90$: BUG_CHECK |.OCKMGRERR, FATAL 
OCOE 2465 ; Action routine to build the lock granted message. Inputs are: 
OCOE 2466 3 Re Address of message buffer 
Bcee tee 3 R Address of CDRP 
Oc oe 469 BLD_GRANTEDMSG: 
7s a aoe peony 
+3 1's ASSUME CLSMSG$B_FUNC EQ CLSMSGSB_FACILITY+1 
08 A2 0202 8F BO OCI 47 MOVW #LKMSG$K_GRANTED@8- ; Store function and facility codes 
C1 474 'CLSMSGSR_FAC LCK, CLSMSG$B FACILITY(R2) 
34 AS BO OC18 2475 MOVW CDRP$L_VAC3(R5),- ; Store membership seq. num. 
OC A C1B 476 LKMSGSQ_MEMSEQ(R2) 
51 $f A D C1D 247 MOVL CORPSL UAL] (RD) RI ; Get master lockid 
50 OAS OD C21 yh MOVL CDRPS$L_VAL2(R5) ,RO ; Get process lockid 
2C AS) 7D «(0C25) «(247 MOVQ wet VAL1(R5),- 3; Store Lockids 
10_A2 C28 2480 LKMSGSC_MSTLKID(R2) 
O3AA 30 OQC2A 2481 BSBW VERIFYREMLKID 
$6 50 €9 OC 4 4 § BLBC R gps : Branch if LKB went away 
50 A6 0 c 0 4 ; MOVL  LKBSL_RSB(R6) RO : Get RSB address 
C34 2485 ; Note we are only sending the low byte of the RSB status 
C34 24 § 3 as the high byte overlaps the LKMSGS$B_GRMODE field. 
C34 24 ; We can 96 quer with this because we only need to send 
: r r 8 ; the RSBSV_VALINVLD bit. However, this should be fixed. 
C34 2490 ASSUME LKMSGS$B_GRMODE €EQ LRASESN_RSBSTATUS#T 
: 2 43) ASSUME RSBSV_VALINVLD LE 
AA BO 0C34 198 MOV LKBSW_STATUS(R6) ,- ; Store LKB status 
8 he C37 2494 LKMSGSW_LKBSTATUS(R2) 
OE A 90 O0C39 2495 MOVB RSB$W_STATUS(RO),- ; Store low byte of RSB status 


= 


———_—_—_—— 
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Vv SOOT LCKSSND_GRANTED = Send a : lock granted me ~3Eb=1 3c 99: z3: 742 (CSYSLOA.S REID DSTRLOCK .MAR; 2 ° (19) v0 
JAA cee 138 LKMSG$W_RSBSTATUS(R2) 
32 A 90 OC 49 MOVB LKB$B_GRMODE(R6),- ; Store granted mode 
A C4 498 LKMSGSB GRMODE CRD) 
A 7D 0C4 49 MOVa SB$Q_VALBLK(RO),- 3 Store value block 
A Cag 0 LKMSGSQ VALBLK(RE) 
Baa PORE $803 Move TPRSEBN VAT ese tad) 
CA DO OC4D 25 4 MOVL RSBSL_VALSEQNUM(RO),- ; Store value block sequence number 
OA C 504 LKMSGSL “VALSEONUM (RS) 
2 BEDS C 2 5 60S: POPL R6 ; Restore registers 
4 BED C $ POPL R4 
05 0c58 250 RSB 


—_ 
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tributed L 
CV_GRANTED = Receive lock granted m 6-SEP-1984 :42 (CSYSLOA.SRCIJDSTRLOCK.MAR;2 
C 09 -SBTTL LCKSRCV_GRANTED = Receive lock granted message 
; i :+4 
039 : FUNCTIONAL DESCRIPTION: 
c59 14; This routine handles the receiving of a lock granted message 
C59 «2515 ; sent by the master system. This system is the process system for 
734 218 ; this lock. 
33 318 ; CALLING SEQUENCE: 
(59 2520 ; JSB LCKSRCV_GRANTED (called by SCS received message routine) 
tT : 1; IPL must be at TPL$_SYNCH 
C59 3 : INPUT PARAMETERS: 
0¢59 505 ; + Address of message buffer 
Bcae 2 § : R Address of CSB 
0¢59 2528 : OUTPUT PARAMETERS: 
0659 2529 ; 
i 
0¢99 334 + SIDE EFFECTS: 
0C59 2534 : RO - R5 Destroyed 
bca9 5834 ° 
0C59 ; 7 LCKSRCV_GRANTED:: 
OFCC 8F 0C59 3 PUSHR #*M<R2,R3,R6,R7,R8,R9,R10,R11> 
0cSD 253 ASSUME LKMSGSL_PRCLKID Fd CKMSGSL_MSTLKID+4 
50 110A 7D OCS5D 2540 MOVQ LKMSGSL-MSTLKID(R2),RO ; Get process and master lockids 
37 30 0C61 2541 BSBW VERIF YREMLKID 3; Convert to LKB address 
g 50 €9 0C64 248 BLBC R : Invalid lockid - ignore message 
58 50. A6 DO OC67 6543 MOVL — LKBSL_RSB(R6),R8 ; Get RSB address 
~~ 
0C6B 2545 ; Store value block unless the one we already have is later. 
0C6B 278 ; Note we are only sending the low byte of the RSB status 
she 54 3; as the high byte overlaps the LKMSGS$B_GRMODE field. 
C6B 278 3; We can 9 away with this because we aly need to send 
Rees 203 ; the RSBSV_VALINVLD bit. However, this should be fixed. 
7 H ASSUME RSBSV_VALINVLD LE 7 
C as C3 O0Cé6B 2¢ SUBL3 RSBSL_VALSEQNUM(R8),- —; Compare sequence numbers 
50 30A CoE 334 LKMSGSL_VALSEQNUM(R2) ,RO 
7. wo 5 BLEQ 0$ ; We already have a newer one 
A 7D 0C73 228 MOVa LKMSG$Q_VALBLK(R2),- 3; Store value block 
A cre 5 RSB$Q_VALBLK(R8) 
A 7D C7 38 mova LKMSG$Q_VALBLK+8(R2),- 
A C78 5 RSB$Q_VALBLK+8(R8) 
OA DO 0C7D 60 MOVL LKMSGSL_VALSEQNUM(R2),- ; Store sequence number 
CA C 61 RSB$L_VALSEQNUM(R8) 
0 AA OC 6 BICW artis - 3; Clear value block invalid flag 
OE A C 6 RSBSW_ STATUS (RBS 
01 €1 OC § 4 BBC #RSBSY_VALINVLD,- ; and conditionally set it 
04 1A A2 C 65 LKMSG$Q_RSBSTATUS(R2) ,10$ 


vo4=O01 


t 


ock Man 


- Rece 


208: 


30$: 


; 


F 4 
ger Loadable Code 16-SEP-1984 90:33:23 AX/VMS Mac 
ve lock granted m 6-SEP-1984 17:43:42 


BISW #RSBSM_VA INVLD - 
RSBSW_STATUS(RBS 


There are a number of race conditions that must be handled 
correctly when this message is received. These are: 
We receive this message before the process has 
been scheduled. The LKB state is RSPQUEUED. In this 
case change the state to RSPGRANTD. 
2) The lock was dequeved before this message arrived. 
In this case we will get an invalid lock id above 
and will ignore this message. 
3) ibe lock was a conversion and it was goncoled before 
this message arrived. The LKB state is GRA ° ignore 
this message unless the BLKASTQED bit is set. In this 
case handle this message as if it were a blocking AST 
message 
4) Case # 3 but another conversion has already been issued. 
Lock state is SCSWAIT, RETRY, RSPQUEUED, or RSPGRANTD. 
This condition is also determined by the granted 
lock mode in the message not being equal to the requested 
mode in the LKB. Ignore this message. 


shdethaaba” LKBS$B_STATE(R6) , TYPE=B8, PREF IX=LKBSK_,- 


<GRANTED,20$>,- ; Ignore unless BLKASTQED set 
<CONVERT,50$>,- ; Handle normally 
5 ; Handle normally 
<RETRY ,80$>,- ; Ignore message 


v04-00 p 
SYSLOA. SRCIDST at 


4 
RLOCK .MAR; 2 


Ignore message 
Change state to RSPGRANTD 
Ignore message 


> 
BUG_CHECK LOCKMGRERR,FATAL; Invalid state 
; The lock state is granted. This should only occur if the lock 


3 request was canceled. If the BLKASTQED bit is set then treat this 
; message as a blocking AST message. 


BBC #LKBSV_BLKASTQED,- ; Branch if should not queue blocking 
LKMSGSO EKBSTATUS(R2) , 808 ; AST 

POPR #*M<R2,R3,R6,R7,R8,R9,RI0,R11> ; Restore registers 

BRW LCKSRCV_BLKING ; Use common code 


; The Lock state is RSPQUEVED. Change to RSPGRANTD and store 
; BLKASTQED bit. 


CMPB LKMSGS$B_GRMODE(R2),- : Is granted mode (in mossoge) equal 
LEBS8_RGRODE (RO) 3 to requested mode (in lock)? 
BNEQ 0 ; No, ignore message 
MOVB #LKBSK_RSPGRANTD,- ; Yes, store new state 
LKB : STATE (R6) 
BBC #LKB$7_BLKASTQED,- ; Branch if should not queue blocking 
LKMSGS$@_LKBSTATUS(R2) ,80$ ; AST 
BISW #LKBSM_BLKASTQED,- ; Set BLKASTQED bit 
tt wW_STATUS(R6) 
BRB 0 


DSTRLOCK - Distributed Lock Manager Loadable ¢ Code 16-SEP-1984 00:33:34 YAX/VMS Macro v04-00 e DS) 
Moun bos LCKSRCV_GRANTED - Rece ise lock granted m 6-SEP-1 1382 90:33:25 SYSLOA.SRCIJDSTRLOCK.MAR;2 = (38) v0 
ee 50$: ; The lock state is CONVERT or WAITING. Now grant the lock. 
1B A 91 OCCC CMPB LKMSG$B_GRMODE(R2),- ; Is granted mode (in message) l 
as CCF 6g6 tt ROMODE (R6) : to Pequested sode (in locks? 
20 is CD BNEQ 6 ; No, ignore message 
¢¢ A 9 CD 8 MOVB LKBSB SGRRODE(RED i Yes, make granted mode equal 
SA CD LKBSB-GRMODE (R6) 3 requested mode 
00' 3c OCD 9 MOVZWL ty] #SS$_NOR ; Store status 
AG CDA KBSL “ERSTH CR) 
50 A OF OCD § REMQUE LKBSL-SQFL(R6),RO : Remove from wait queue 
A D3 ce rst KBSL “BLEASTADR CRG) : Block ng AST specified? 
42 A B6 OCE 3 INCW RSBSW 7th - im - blocking AST count 
0 E1 OCE 6 § BBC #LKBS$V_BLKASTOQED Branch f should not queue blocking 
OD 18 A CEA 26 LKMSGS$O SLKBSTATUS (R2) , 608 | 
2A A6 OA AB CED 26 } BISW #LKBSM_BLKASTOED!- ict locking AST queued and 
CF1 6 LKBSA BBLKAST. LKBSW_ sraris(Re deliver Beech ae Ast _fneee 
19 Be cr 640 BISB Lk A reetls ; Set piggyback kernel AST b 
i A6 «D0 ers ot¢ MOVL LKBSL_ oR EAS TOR (RG) - -  ; Store address of blocking AST routine 
10 Aé CF 64 LKBSL_AST(R6) 
00000000'GF 16 7S et 60$: JSB G*LCKSGRANT_REM ; Finish granting it using common code 
B00 36 big 80$: ; Deallocate message buffer and exit 
OFCC 8F 4 Bpe8 $e 648 POPR #*M<R2,R3,R6,R7,RB,R9,R10,R11 
F2F9" 31 OD04 2649 BRW CNXS$DEALL “MSG _BUF _¢SB 5 Deailocate message buffer and return 
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Lock Manager Loadable Code 16-SEP-1984 00:33:34 VAX/VMS Macro v04-00 Pp 7 | DS! 
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-SBTTL LCKSSND_BLKING = Send a blocking message 


voue bor ick 


ao 
rc 
na 
_—o 
za 


oe 
FUNCTIONAL DESCRIPTION: 


This routine sends a blocking message to the process system. 
We are the master system for this lock. 


| 
; | 
: 
; CALLING SEQUENCE: | 
: IPL must be at TPL$_SYNCH 
INPUT PARAMETERS: 
; RS Address of LKB blocking another lock 
; R6 Address of LKB being blocked 
: OUTPUT PARAMETERS: 
None 
; SIDE EFFECTS: 


RO - R5 are not preserved 


DOOCOGCOOCOCOOCOCOOOOCOCOOOOCOOCOCSOO 2-7 


JSB LK SSND_BLKING 


-ENABL LSB 


LCKSSND_BLKING:: 
BISW #LKBSM PLEAS TORR -= ; Set blocking AST queued bit 
LKBSW_STATUS(R5) 


| 


DOOOCCOCOCCOCCOCO COCO OCOCOOOOO OOOO OOOCOoO 


ans 


; If the block ing LKB (in R5) is on the same system as the 

3; LKB being blocked (in R6) then we don't send a message as 

; this case is handled Locally on the other systen. 

; Also note that the comment in LCKSSND_GRANTED about the LKB 

3 potas deallocated out from under us applies here also. However, 
3 in t is geee. copying the info. is not as bad since much less 

: is copied. 


=A A=) -4-)-4-4-4-4-4 4-4-4 4-44-44 4 4 OO SS 4 SO SS SS SS SS ee 


OWOOOWO OO DO O00 909 00.09 09 908 SIN NINN SNS SP PPA AA AAA A MII 


SODOOQOOOCCooO 
CSSRARLSSSVSSRAN LS SSS AR MN HO OSOIONE UNI ODO WO FUN OOOO IO 


SINNED DDD DD DD DDD DEDEDE DDD DDD PDP PPP AAA AAA AAA AAA AAA AAA AAA OO 


Sessssssssssssssssssssssssssssss 
VPLS SSSSSSESEEE 


53 58 a5 00 MOVL LKBSL_CSID(RS) ,R3 ; Get CSID 
—1 BBC #LKBSO_MSTCPY,- ; Branch if blockee is local 
06 2A Ag 11 LKBSW STATUS (RG) 10$ 
58 A6 D1 14 CMPL R3,LKBSL CSID(R6S ; Does CSID match other lock? 
3 18 BEQL 30§ : Yes 
54 D is 10$: MOVL R5,R4 ; R4 will point to LKB 
1D SEND_BLOCKING: 
1D ; Allocate a CDRP and copy lockids into it. R3 contains CSID 
18 ; and R4 points to LKB. 
F2EQ0" 3 1 BSBW CNX aL LOC CoAP ; Alloc. CDRP and convert CSID to CSB 
03 § BLBS RO,20 
FEC BRW INSERT_ON_TIMOUTO : None available or CSID error 
0 Aad 00 3 20$ MOVL LKB " CKIB(R4),- ; Copy master lockid 
CORPSC_VAL1(R55 


BLD_BLKINGMSG: 
ASSUME CLSMSGSB_FUNC EQ CLSMSGS$B_FACILITY+1 
MOV #LKMSGSK_ BLKING@8- ; Store function and facility codes 
'CLSMSGSR_FAC_LCK,CLSMSG$B_FACILITY(R2) 
MOVQ CORPS cVAtl (RS) ee ; Store master and process lockids 


MOVW CORP$L_VAL3 RS) 
MSGS (R2) 


G Q(R2 
MOVB CORP$L_VAL3+2(R5) ,- ; Copy granted mode of lock 
LKMSG$B_GRMODE (R25 


08 A2 0502 8F 80 


; Store membership seq. num. 


RSB 
-DSABL LSB 


& 
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vou-001 LCKSSND_BLKING = Send 3 blocking messag g7SFb= 138 99:23:23 SYSLOA.SRCIJDSTRLOCK .MAR; 2 
AS D0 OD2B 27 MOVL LKBSL_REMLKID(R4),=- 3; Co rocess lockid 
OA poe 57 CORPS VALSLRS) edas 
50 A D D f MOVL CSBSL_CLUB(R3) ,RO ; Get address of CLUB 
OOAC BO OD 1 MOVW CLUB O_REMSEQ (RO) ,- : Store membership seq. num. 
EA oo BBE HS nove GREERECUASSAL, copy granted node of Loc 
~ : Co ranted mode of loc 
VAL5+ 
§ sD 3714 EDRPSC. VAL Se2cRSS 7% 
4 : rg ; Store address of message build routine and send message 
0000000 D3F 271 IF NE CAS_MEASURE 
QO0000000'GF oD D3F 4 INCL G*PAS$GL_BLK_OUT 
o $s ~ENDC 
57'AF 9E D4 7 § MOVAB B*BLD_BLKINGMSG,- 
4C A D48 27 CORPSC_MSGBLD(RS5) 
Fee 2 D4A 2724 BSBW CUXSSERD_ASG_CSB 3: Send the message 
50 D D4D 2725 MOVL R5,R 3; Address of CDR 
D JMP G*EXESDEANONPAGED ; Deallocate it 
00000000'GF 1 030 , AEXESDE it i 
05 086 4 g 30$: RSB 
D57 2730 3; Action routine to build the block ing message. Inputs are: 
44 731 3 Re Address of message buffer 
D57 27 § : & Address of CDRP 
D57 27 
tt 734 
p57 2735 
0D57 7 $ 
et 7 
D5D 738 
D6 739 
D6 740 
D6 741 
D6 rs 
goon 74 
Dé6Cc 744 
seq 745 
D6D 2746 
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4 4 i -SBTTL LCKSRCV_BLKING - Receive a blocking message 

D6D 2750 ;++ 

: . f 3; FUNCTIONAL DESCRIPTION: 

D6D 2755 ; This routine handles recetving a blocking AST message from 

: 4 4 : : the master system. This system is the process system. 

: 4 4 § 3 CALLING SEQUENCE: 

D6D 2758 ; JSB LCKSRCV_BLKING (called by SCS received message routine) 
: 4 5 3 IPL must be at TPL$_SYNCH 

D6D 761 ; INPUT PARAMETERS: 
0D6D £06 3 

D6D 2765 ; Re Address of message buffer 

414 7646 ; f Address of CSB 

D6D 2765 ; 

D6D £66 ; OUPUT PARAMETERS: 

D6D 2767 ; 
0D6D pes ; None 
0D6D 6 3 
OD6D 2770 ; SIDE EFFECTS: 
OD6D 2771; 

Dé6D ore 3 RO - RS destroyed 

D6D 2773 :__ 

D6D 2774 

+4 ag LCKSRCV_BLKING: : 

00000002 0Dé6D n6 IF NE CAS_MEASURE 
00000000'GF Dé OD 778 NCL G*PAS$GL_BLK_IN 
4 444 -ENDC 
004C 8F BB 0D7 781 PUSHR #*M<R2,R3,R6> 
D7? 27 : ASSUME LKMSG$L_PRCLKID EQ KMSGS$L_MSTLKID+4 
50 110A 7D OD77 27 MOVQ LKMSGSL-MSTLKID(R2),RO ; Get master and process lockids 
025 30 OD7B 2784 BSBW VERTEYRERLKID : Verity lockid and convert to LKB addr. 
4A 50 €9 44 f 5 BLBC RO,80$ ; Lock is gone - ignore message 

D81 27 5 ; Queue ? blocking AST unless one has been queued before 

D81 2788 ; Cin which case we shouldn't have received the message; but 

D81 2789 3; there are race conditions that will cause this to happen). 

p81 2790 3; we will ignore that detail). Also, state must be GRANTED 

p81 44! 3 a the sane lock mode to get a blocking AST. It may not be 
p81 7 § :; if we are in the middle of a conversion, or have canceled a 
D81 279 3; conversion, for example. Also, we have to handle the case 

D81 2794 3 that this message came in before the process has been awakened to see 
. } Pe 3; that the request was granted. 

4 ' 190 DISPATCH LKBSB_STATE(R6) , TYPE=B, PREF IX=LKBSK_,- 

D81 139 <GRANTED ,50$>,- ; Handle normally 

081 <CONVERT ,80$>,- ; Ignore message 

D8! m1 | $>,- ; Ignore message 

p81 é <RETRY ,80$>,- : Ignore message 

D81 <SCSWAIT Of» - : Ignore message 

D81 4 <RSPQUEUED , 80$>,- :; Ignore message 
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<RSPNOTQED,30$>,- 3 Set BLKASTQED bit 
<RSPGRANTD 4 $>,- 3; Set BLKASTQED bit 
BUG_CHECK LOCKMGRERR,FATAL; Invalid state 


30$: ; Lock state is RSPNOTQED. 


CMPB LKB$B_GRMODE (R6) ,- 

LKNSGSB_GRMODE (R2) 
BNEQ 9s 3; They're not - ignore message 
BRB 45$ 


; Lock state is RSPGRANTD. 


CMPB —s LKB$B_ROMODE(R6),- 
LKNSGSB_GRMODE (Re) 
BNEQ 0$ 


BISW #LKBSM_BLKASTQED,- 
LKBSU_STATUS (RO) 


; Verify granted modes are the same 


~ 
oO 
Aad 


Verify requested mode (in lock) 

is the same as granted mode (in msg) 
They're not - sqnere message 

Set BLKASTQED bit 


BRB 
0081 
St 50$: ; Lock state is GRANTED. 
35 A6 «6991S ODB1 CMPB LKB$B_GRMODE(R6),- ; Verify granted modes are the same 
1B A DBS KMSGSB_GRMODE (R2) 
1 ie DB BNEQ 0$ ; They're not - ignore message 
0 E DB BBS #LKBSV_BLKASTOQED,- ; Branch if a blocking ast has been 
OE 3A A6é DBA LKBSW_STATUS(R6) ,80$ 3 queved 
0 A6 05 DBD Ist LKBSL“BLKASTADR(R6) : Verify there is a blocking AST routine 
55 6 00 ty MOVL R6,R5 ; Move LKB address for subroutine call 
00000000'GF 16 ODC JSB G*LCKSQUEUVE_BLKAST ; Queue a blocking AST 


fo J 
o 
bad 


; Deallocate message buffer and exit 


POPR #*M<R2,R3,R6> 
BRW CNXSDEALL_MSG_BUF_CSB ; Deallocate message buffer and return 


~ tA eva 

Pd oe ow 

> >> onv,r > 

Coonrncn ~NONMO 

—- >— oO —— s- CE 

_ par =—~n — 

OOCGOCOOOOOOBOOCOOCOOCOO or 

CVUVCTCVCTVUVTCVCTVCVCVUVC VCC VCVCCTCTCO <4 

RNODONL LL SVOMWwW noo 
PIPDPIPINIPINIPIPOPINIDIMIPIPIPYIPIPIPIMPIPIPPMPIPMIPIPIPIPINIPINIPMNININ — © 
0.090909 00 0D G0 0d 0D 0d 0D CD CD CO CD CO CD CO CO CD CO CD CD CD CUCD CD CDCUCNCDCDCNCBCDOCNCD ZO 
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“ 
sad 
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dC 

DC 

004C 8F RA dC 
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-SBTTL LCKSSND_DEQ = Send dequeue message 


;++ 
FUNCTIONAL DESCRIPTION: 


This routine sends a dequeue lock message to a remote system. 
This system is the process system and the remote system is the 
master system. 


; CALLING SEQUENCE: 


JSB LCKSSND_DEQGR (Lock is in granted state 

JSB LCKSSND-DEQCV (Lock is in conversion oe state) 
JSB LCKSSND-DEQWT (Lock is in waiting state) 

IPL must be at IPL$_SYNCH 


INPUT PARAMETERS: 


4 
: 
; 
° 
: 
; 
o 
4 
: 
o 
. 
o 
° 
° 
3 
‘ 
; 
; 
: 
‘ 
° 
. 
; 
; 
; 
‘ 
; 
: 
‘ 
‘ 
‘ 
; 
: 
P 


CVCVCoCVTVT OCT CVT VTVTVVTVT VT CTT TCT 9CTCCT909C9Oo 7 


Sooo OOoooco COOCCGCCGCOOOGOOCOCOOOOOOOOOOSoOoO 2- 
ocuCcVC ToC VTVCoVCVCVCVCVTVTCTTCCSF 
4-4-4 -4-4-A- AAA AAA AAA A_ AAA AAA AAA AAA AAA A 
PAIN = FEM OW OOO NEUPIPIPIPIPIPIPIPIPIPIPIPIDPIPOIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIP IPI 


R3 Address of CSB (not CSID!) 

RG Dequeue tags 

R5 Address i DRP 

R Address of LKB 

R Final completion status to store in LKBS$L_LKST1 or 0 

which indicates a default status should be used 

R8 Address of RSB 

R9 Address of value block (LCKSSND_DEQGR entry only) 
OUTPUT PARAMETERS: 

None 


SIDE EFFECTS: 
RO - RS destroyed 


-ENABL LSB 


LCKSSND -DEQUT: 
3 Lock. ‘is waiting 


54 06 AA OQDD BICW #LCKSM_ CANCEL- ; Clear cancel 
DD ah Cksn. INVVALBLK ,R4 3; and invalidate valblk floge 
59 D4& ODD CLRL : Indicate no value block 
1B Od 4 BRB fos 
DD LCKSSND_DEQCV:: 
4 a ; The lock is on the conversion queue. 
AA OND 35 BICW #LCKSM [WyyaLs K, R4 : Clear invalidate valblk flag 
33 A 90 ODD 9 MOVB LKB$B_GRM mope | ; Store granted mode in case 
7A DD 9% CORPSC_VAL3+ scRSS ; this is a CANCEL function 
a D4 ODE 95 CLRL RS 3; Indicate no value block 
-* 43 38 BRB 40$ 
DE 38 LCKSSND_DEQGR:: 
DE 9 ; Lock is granted 
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DE 
9 3 DES TSTL FR? 3; Is there a value block? 
8 DE BEQL tB8)6 3 No value block 
38 & D ODES MOVQ (R eSbansl VAL 8 7 3; Copy value block into CDRP 
40 A 8 7D QDED 2904 mMOVQ s : EDRPSL _VAL 
59 1 00 49] 4 5 MOVL »RO ; Set low byte non-zero 
ore 4 40$: ; Put additional information for message into CDRP. 
0000000 DF4 290 -1F NE CAS$_MEASURE 
00000000 ' GF 0g DF4 2910 INCL G*PASS$GL_DEQ_OUT 
90000000" GF i) pra $14 DECL C“PMSSCL™ ~DEQ-LOC 3; Counter was incorrectly incremented 
E o 91 : 
36 AS 659 )—s 90 £0 914 MOVB RO, CORPSL_VAL3+2(R R5) 3; Store value block flag 
54 ag DO 0604 2915 MOVL LKBSL REA REMCKID (RO) : Store master lockid 
CA 344 318 CORPSC_V £1 eae? 
0 Ae DO OE09 291 MOVL LKBSL ckt R6),- ; Store process lockid 
OA O£E0C 2918 CORPSC Ct 
34 a5 54 B80 pet 444 MOVW R4, CORPSL_VAL3(R5 ; Store flags 
0E1 921 Remove LKB from RSB and deallocate RSB, if »hecessery (don't 
Oe 4 § do this if we are only cancelling the lock 
10 54 0O1 #4€0 QE1 924 BBS ey, cnev CANCEL,R4,50$ :; Branch if concets reg lock 
2 DD Ete 925 PUSHL 3; Save address of 
5 DD O0E1 926 PUSHL R3 ; Save address of 3 
50 38 A6 OF OEIA 2927 REMQUE CKBSL phat RO 3; Remove lock from RSB 
00000000'GF 16 OEIE 2928 JSB G*LCKS _RSB 3; Check RSB and delete if necessary 
28 BA BE 2 3 4 POPR #*M<R Ra RES 3; Restore registers 
3 ° 4 1 50$: 3; Send the message 
50 AS 00 OE26 29 ‘ MOVL CSB$L_CLUB(R3),RO ; Get address of CLUB 
OOAC CO BO QE2ZA 2934 MOVW CLUBSQ_MEM MSEQ(RO) ,= 3; Store membership seq. num. 
AS E 935 CDRPS$L~VAL8(R5) 
41°AF 9E OE 936 MOVAB B*BLD_BEQMSG,- ; Address of message build routine 
4C AS OE 937 CORPSE ASGBLB CRS) 
F1ic8* 30 4 4 8 BSBW ERR SSERD _MSG_CSB 
E 940 : Deallocate the CDRP. This is done on success or failu 
E 941 : since the lock is gone from this system (or CANCELed back to it's 
; 348 3; old mode) as far as failover is concerned. 
50 55 09 E 302 MOVL ; Address of CDRP 
00000000'GF 1 ES 343 JMP OREN SDEANONPAGED 
E41 309 -DSABL LSB 
E41 74 
E41 2949 BLD -DEQMSG: 
E41 29 : Action routine to build the actual dequeue lock message 
E41 29 : Inputs are: 
E41 29 : . Address of message buffer 
E41 4 : Address 8 
et} a2e 3; ALL senlenesh except RO and R1 must be preserved 
E41 956 ASSUME LKMSGSL_PRCLKID EQ LKMSGSL_MSTLKID+4 
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V O01 LCKSSND_DEQ = Send dequeue message g-8 oats yi 99:83: i3 SYSLOA.S REID DSTRLOCK.MAR; 2 ’ (33) 
E41 957 ASSUME Lknsese GRMODE EQ LKMSG$W_FLAGS+3 
Efi 4 | ASSUME CLSMSGSB_FUNC EQ CLSMSGSB"FACILITY+1 
08 A2 0302 8F BO OE41 2960 MOVW #LKMSGS$K_DEQa8- Store function and facility codes 

E47 2961 'CLSMSGSR_FAC.LCK,CLSMSG$B FACILITY (R2) 

48 A BO 0E47 29 ¢ MOVW CORPSL VAC8(R5 ; Store membership seq. num. 

CA E4A 36 LKMSG Q MEMSEQ(R2) 

CA 7D OE4C 2964 MOVa CORP QAL1(R5),- ; Store process and master lockid 

0 Ag EGF 369 LKMSG C_Ms LKIDiR2) 

34 A DO 0E51 29 § MOVL RP t VAL3(R5),= ; Store flags and granted mode 

18 A E54 296 LKMSG Q oft as (Re) 

36 A 9A £28 +43 MOVZBL Pot WA (R5),- ; Store value block flag 

iC A —5 9 bKnsc C Me ararietne) 

OA 13 OE€5B 2970 BEQL 0$ 3; No value block 

38 AS 7D OE5D 2971 MOVQ CORPSL_VAL4(R5) ,=- ; Store value block 

0 ne 0E6 97¢ LKMSG$Q_VALBLK(R2) 

40 A 7D O€6 97 MOVQ CORPSL_VAL6(R5) ,=- 

28 A2 0E65 2974 LKMSG$Q_VALBLK+8(R2) 

05 0&67 2975 30$: RSB 


60S: ; The dequeue vested. ine only failure allowed is SS$ CARTEL SRA 


; which can occur i e process copy was dequeued while in 
; the conversion queue while at the same time the master copied 
; was granted. In this case we have to regrent the master copy 


; at the old mode to make it consistent with the process copy. 


CMPW 8 #SS$_CANCELGRANT : Is it this race condition? 
BNEQ 90$ : No = must be $S$_SUBLOCKS 
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DSTRLOCK - Distributed Lock Manager Loada Re Code 16-SEP-1984 00:33:34 VAX/VMS Ma v04-00 P 4 
v04-001 LCKSRCV_DEQ = Receive 3 dequeue Pork mes 6-SEP-1984 00:23:23 EOYSLOA. SREIDSTRLOCK «MAR: 2 ~ (34) 
E 444 -SBTTL LCKSRCV_DEQ = Receive a dequeue lock message 
cee 
E6 ; 0 ; FUNCTIONAL DESCRIPTION: 
E6 9 ¢ : This routine dequeves a lock on our system (the master) upon 
£8 4 ? ; receiving a message from the process system. 
EGR g985 ; CALLING SEQUENCE: 
E6 9 : : JSB LCKSRCV_DEQ (called by the SCS received message routine) 
Ee 2 8 : IPL must be at IPL$_SYNCH 
E6 9390 + INPUT PARAMETERS: 
0E6 93¢ : Re Address of message buffer 
BE? 887 ; R Address of CSB 
0£68 2995 : OUTPUT PARAMETERS: 
0E6 238 3 
i 
OE6 $39 : SIDE EFFECTS: 
0E68 3001 ; RO - RS destroyed 
Beh atte i 
0E68 3004 LCKSRCV_DEQ:: 
00000002 Bee 005 -I1F NE CA$_MEASURE 
00000000 ' GF D6 E6 4 INCL G*PAS$GL_DEQ_IN 
2. 
OFFC 8F BB OE6 009 PUSHR #*M<R2,R3,R4,R5,R6,R7,R8,R9,R1I0,R11> 
5110 Ag DO OE72 3010 MOVL  LKMSGSL_MSTLKID(R25.R1 : Get master lockid 
50 144A B° pee 011 MOVL LKMSGSL_PRCLKID(R2),RO ; Get process lockid (for verify) 
g13A E7A ole BSBW VERLF YREMLKID 3; Convert to LKB address 
62 50 €9 OE7D 301 BLBC ‘ : Invalid lock id 
06 €5 OE80 3014 BBCC #LKB$V_TIMOUTQ,- : Is lock on timeout queue? 
03 2A A6 E82 O19 LKBSW_STATUS(R6) ,5$ 
50 66 OF OE8 1 REMQUE LKB$L_ASTQFL(R6),RO : Yes, remove it 
59 61C Ae 0 +14 4 5$: sp LKNSGSL_VALBLKFLG(R2) ,R9; as there a value block? 
: No 
59 20 As 9E O0E8 i MOVAB LKMSG$Q_VALBLK(R2),R9 ; Yes, set address of value block 
54 IB A 3¢ 9 0 10$: MOVZWL LKMSGSWTFLAGS(R2),R4  ; Get user flags 
00000099" gf 8 Soe ise. 6 ALEKSDEGLOCK ; Dequeue the lock 
é ; Error 
OFFC 8F RA oF 20$: POPR #*M<R2,R3,R4,R5,R6 R7.RB°RO-RIO.R11> 
FISA’ 31 - 0 BRW CNXSDEALL_MSG_BUF_¢SB ; Deallocate message buffer and return 
3 
A6 
A6 
A6 
A6 
3 
aS 30 
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DSTRLOCK - Distributed Lock Manager Loadable Code 16-SEP-1984 00:33:3 AX/VMS Macro V04-00 Page 65 ER 
Vv Ot LCKSRCV_DEQ = Receive 2 dequeue lock mes 6-SEP- 7138 99: z3 i3 ESYSLOA. SRE DSTRLOCK.MAR;2 : (32) vO 
28 A +5 EAD 4 MOVL LKBSL_RSB(RG) ,RB ; Get address of RSB 
0 A F OEB 5 REMQUE LKBS$L~SQFL(R65 ,RO : Remove lock from granted queue 
4 13 4 § iit Kes. “BLKASTADR(R6) ; 4s there an old blocking AST flag? 
3 No 
42 A 8 EBA 8 DECW RSBS$W_BLKASTCNT (RB) ; Yes, adjust count 
1C A DO OEBD 65$ MOVL LKMSGSL_BLKASTFLG(R2),- ; Store new blocking AST flag 
20 ag EC 40 LKBSL_BCKASTADR(R6) 
51 1B A 9A OEC 41 MOVZBL tERSESB GRMODE (R2) ,R1 ; Get old granted mode 
Op700000 "st 16 OEC tg JSB G*LCKSCOMP_GGMODE ; Compute a new group grant mode in R5 
oc A 5 90 435 04 MOVB Rp -RSB58_GGRODE (RE) ; Store it. 
OD A 55 90 OED 44 MOVB R5,RSB$B_CGMODE (R8) 
a 16 BEDS 45 JSB G*LCKSGRANT _LOCK ; Grant the lock 
00000000 ' GF 16 QEDA ‘3 JSB Soy CROGRANTCY VTS ; Grant any waiters 
BD 11 OEEO 304 BRB 0$ 
OEE 048 
OEE 049 
BEES bao 80$: BUG_CHECK INVLOCKID,FATAL ; Invalid lock id 
OEE6 052 90$: BUG_CHECK LOCKMGRERR,FATAL; Dequeue failed 


5 
Lock Manager Loa able Code 16-SEP-1984 00:33:34 VAX/VMS Ma v04-00 P | 
= Send reaove texters e = $b 382 90:33:25 SYSLOA. SRCIDSTRLOCK MAR; 2 ast (38) 
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-SBTTL LCKSSND_RMVDIR = Send remove directory entry message | 
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oe 
; FUNCTIONAL DESCRIPTION: 


This routine sends a message to the directory system specifying 
that a root resource direc ory entry be removed. This routine 

is called when the last lock is someone from a root resource that 
is being manages by this system and this system is not 

directory system for this resource (RSBSM_DIRENTRY is 


; CALLING SEQUENCE: 


JSB LCKSSND_RMVDIR 
IPL must be at ITPL$_SYNCH 


INPUT PARAMETERS: 


the 
clear) 


RB Address of RSB 
; OUTPUT PARAMETERS: 
None 


SIDE EFFECTS: 
RO - R5 destroyed 


LCKSSND_RMVDIR:: 
3; Compute CSID of directory system 


TATA HMMM MMMM mmmmmmmmmmMmmhimMmmmmmmmmmmmmmmmemmmrmnm o-> 
Wrhonononofnony 3 2 OOO OCOO TTT AMMMMMmMmMmMmMmmmmmmmmmmmmmmmmmmmmmmmn = 
FWP 9 ODNOAOUE WIN | 0 OONA UE WR 0 OO NOUS WP OUOONAOUS 


MMOVUPININIO OE YS NI" 9 OOWUW—"9 Nil" P PP PP YY rr rrr YY YY Yr rrr rrrr>r>r>r>r>r>rryY 


DOCS OOCOCOCOCOCOCO COSCO OOCOOCOSOOOSOOSOOOOCOSOOOOCOOCOOOCOOOOOOOOCOOOOOOCOO 2- 


53 00000000'GF 00 MOVL G*LCKS$GL_DIRVEC,R3 ; Get address of directory vector 
51 44 A8 3 MOVZWL RSBSW_HASHVAL(R8),R1 ; Get hash value 
¢ D4 CLRL 3; Clear high order hash value 
51 50. 651 FO A 78 EDIV cassia R1,R0,R1 ; Compute hash index (in R1) 
53 6341 0° MOVL (R3)CR1S,R3 ; Get directory system 
35 BEQL 70$ ; Error 
FOFA’ 30 BSBW CNXSALLOC_CDRP ; Alloc. a CDRP and convert CSID to CSB 
33 5 E9 BLBC . 3; No memory or CSID error 
ef AS 5 dO 5 MOVL R8,CDRPSL in ie ; Store RSB address in CDRP 
0 64 A3 D0 6 MOVL  CSBS$L_CLUB(R3) ,RO : Get address of CLUB 
OOAC c BO MOV CLUBSO_REMSEQ(RO) ,~ ; Store membership seq. num. 
34 A 8 CORPSL_VAL3(R5) 
42°AF 9E 9 MOVAB B*BLD_RMVDIRMSG,- ; Store address of message build routine 
4C AS 0 CDRPSC_MSGBLD(RS5) 
00000002 ; .1F NE CAS$_MEASURE 
00000000'°GF 06 INCL G*PAS$GL_DIR_OUT 
: ~ENDC 
FO 2 30 § BSBW CNXSSEND_MSG_CSB ; Send the message | 
50 3f r dO MOVL conrat VAL1(R5) ,RO 3; Get address of RSB 
000099 O'Gf 1 8 JSB G*E XE SDE ANONPAGE D : Deallocate it 
sa MOVL R5,R ; Get address of CDRP 
00000000'GF 1 0 JMP G*€ XESDEANONPAGED : Deallocate it | 
| 
| 
| 
_ 


ER 
vo 
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Vv “O01 LCKSSND_RMVDIR = Send reaove STrectors e $eE=138¢ 99:23:83 SYSLOA.S REID DSTRLOCK .MAR; 2 (35) 
F 111 
F 11 70$: ; We are the directory system for this resource, yet RSBSM_DIRENTRY 
F 11 3 is not set. See comment under RELOOKUP for a description of 
: Ve 3 a@ race condition that is similar to what may have caused this. 
: c 118 BUG_CHECK LOCKMGRERR ,F ATAL 
FSC 118 80$: ; No CORP to allocate or CSID conversion error. If insufficient 
FSC 311 ; memory, then place the RSB on the timeout queue. Since we 
F3C 63120 3 nornal (y gece LKBs on the timeout queue, we need to verity 
F3C 3121 ; that the fields we use in the RSB are not needed. Hence, 
: : ! § ; the following ASSUME Stotenente. 
F3C 3124 ASSUME RSBSL_HSHCHN EQ LKBSL_ASTOFL 
F3C «03125 ASSUME RSBSL_CVTQFL EQ LKBSL_DUETIME 
OF ¢ } $ ASSUME RSBSQ"-VALBLK+2 EQ LKBSW_STATUS 
54 «(58 9 OF3C 3128 MOVL ; Move RSB address 
FCAB O31 OF SF 3 BRW INSERT _ON_ TIMOUTO 
OF4 131 3; Action routine to build the actual remove directory 
OFS 1 ¢ 3 — message. 
OFS 1 3: Inpu .. re: 
OF4 134 : Address of message buffer 
nee 135 : Address y DRP 
ore : 8 ; ALL pantetnes except RO and R1 must be preserved 
OF4 138 ASSUME LKMSGSB_RMOD EQ LKMSG$W_GROUP+2 
OF4 139 ASSUME LKMSG$B_RSNLEN EQ LKMSGS$B_RMOD+1 
OF4 140 ASSUME LKMSGST RESNAM EQ LKMSG$8_RSNLEN+1 
OF4 141 ASSUME RSBSB_RAOD EQ RSBS$W_GROUP 
OF4 146 ASSUME RSBSB_RSNLEN EQ RSBSB_RMOD+1 
c? 107 ASSUME RSBST_RESNAM EQ RSBS$B_RSNLEN+1 
F4 145 BLD_RMVDIRMSG: 
3¢ BB OF4 138 PUSHR #*M<R2,R3,R4,R 
2 0402 8F- 860 an 148 move iLensese fUne “Eo eeegssEgrs, funet ton and facility codes 
ui 
salle FA 3149 MSGSR pac Rt, cLsmsGée. FACILITY(R2) 
se as BO roe 139 MOVW CORPSE VAL VAES¢ Ss ; Store membership seq. num. 
51 of A DO OF4F 13 MOVL EDRPSL Gary tRS) Ri ; Get address of RSB 
44 Al BO OF53 315 MOVW RSB$W_RASHVAL (RI) ,- 3; Store hash value 
OE A 36 138 LKMSGSW gHASHVAL (Re) 
50 4FA 9A OF 155 MOVZBL R $B RSM (R1),RO ; Get length of resource name 
0 4 CO eee 138 ADDL #4,R ; Account for group, access mode, etc. 
4C Al % 28 OFSF 1 MOVCS RO,RSBSW_GROUP(R1),- ; Move group no., resource name, etc. 
28 A2 F6 1 | LKMSG$W BrOuP (Re) ; inot message buffer 
3¢ BA Fes 15 POPR #*M<R2,R3,R4,R5> 
5 OF6 160 RSB 


DN ene 


ene 


pog00089 


00000000 ' GF 
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-SBTTL LCKSRCV_RMVDIR = Receive remove directory entry message 


ae 
FUNCTIONAL DESCRIPTION: 


: This routine handles feceiving a remove directory entry message. 

3 This system must be the directory system for this resource. 

; The specified root resource is located in the resource hash table 

3 and all of its queues are empty, then the resource is deallocated. 
3 If the wait queue has locks on it, then these must represent 

3 requests from this system estas sent to the system that formerl 

; managed this resource (the oye em that sent us this message). In 

: this case the resource deallocated. Instead, the RSBSL_CSID 

: field is cleared and we master the resource. Clearing the field 

; must be done now instead of when our lock messages are returned 

3 with the response ‘‘do loca Ly . Otherwise there is a race if the 

3 remote system follows the RMVDIR message with a directory lookup 

3 lock request. We will then erroneously tell the other system to 

; do it locally while the other systes is Sess ing us the same thing. 

: Another race condition occurs this message is delayed on the 

3 eed 1 side dur to insufficient pool. In that case, it is 

3 possible for us to receive a do locally lock response before 

3 nece ving this message. That is why we tolerate the RSBSL_CSI 
3 field being zero if we it doesn’t match the remote system's CS 


; CALLING SEQUENCE: 


JSB LCKSRCV_RMVDIR (called by the SCS received message routine) 
IPL must be at TPL$_SYNCH 


; INPUT PARAMETERS: 


R¢ Address of message buffer 
R Address of CSB 


; OUTPUT PARAMETERS: 
None 
SIDE EFFECTS: 
RO - R5 destroyed 


D 
ID. 
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LCKSRCV_RMVDIR:: 
-1F NE CAS MEASURE 
INCL G*PASSGL_DIR_IN 


OOQDOOooo2 


DONOAOUE WO OONOUS WN 
v 
Cc 
" 
=x 
Da 


Pn lg R8,R10,R11> 
MOVAB LKMSG (_PARMSTLKID(R2) ,R4 ; Set start of resqurce description 
CLRL (R4) ; Clear parent lock id 
MOVZBL LERSG -RSNLEN(R2),R10 ; Get Length of resource name 
L #8.R ; Account for extra fields to match 
MOVZWL LKMSG$W_HASHVAL(R2),R1 ; Get hash value 
SU ER SSR CH _HSHTBL : Search hash table for resource 
RO,808 ; Resource not found 


SDD DDD DDD DDD DDD DDD DPD PPP AAA AAA A AAA AAA AAA AAA AAA AAO 
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FBC 
F8C 3 ; Resource was been located, R5 points to RSB. verity it is a 
FBC 1 ; directory entry mastered by other system. Then verify all queues 
3 are empty. granted or conversion queues are not empty then 
FBC If d i ’ h 
FBC ; we are in serious trouble. It’ gkay f wait queue is not empty, 
: : : ; as this represents the race condition described above. 
F8C § ASSUME RSBSL_CVTQFL EQ RSBSL crert.oe 
F8C ASSUME RSBSL_WTQFL EQ RSBSL_CVTOFL+ 
. : 8 ASSUME RSBSM_DIRENTRY EQ 1 
2° 33 bg FBC ? MOVL R5,R8 ; Rove address of RSB 
4 OF AB «OCEOsCOOF BF BLBC RSBSW_STATUS(RB8),80$ =: Verify directory entry bit is set 
53 4A DO (OF ; ¢ MOVL 4(SP)7R3 ; Get address of CSB 
4C A D1 OF9 CMPL CSBSL_CSID(R3),- ; Verify sending system is 
38 A FOA 4 Bsget.cSiB CRS) 3 mastering resource 
0 1 FOC 5 BEQL 208 ; It is 
38 ag i) 4, § TSTL RSBSL_CSID(RB) 3 it’s not, but it’s ok if this system 
§ 1 FA BEQL 40$ ; is mastering the resource 
; 1 4 8 BNEQ 80$ ; Error 
50 0A DE OFA 9 208 MOVAL RSBSL_GROFL(R8),RO ; Get address of granted queue 
50 2 D1 OFA9 40 CMPL (RO) ,RO ; Is granted queue empty? 
i FAC 41 BNEQ 80$ : 
50 ; C FA $5 ADDL #8 RO ; Yes, get address of conversion queue 
50 6 Di OFB 4 CMPL (RO) ,RO ; Is conversion queue empty? 
1D is OFB4 44 BNEQ 80$ 3; No 
50 08 c Bree 45 ADOL #8,RO 3; Yes, get address of wait queue 
a i | Re oe oe 
; Yes 
38 AB 4 pret 8 CLRL F588. CSE CRS) ; No, we master resource 
09. «11 43 $5 ac) 40$ 
ae 33 30$: ; ALL queues are empty and checks verified. Deallocate RS8 
38 AB D4 OOFC a CLRL RSBSL_CSID(RB) ; Do this so that LCKSDEALLOC_RSB 
gree 54 : really deallocates it 
00000000'GF 16 4S 22 JSB G“LCKSDEALLOC_RSB ; Deallocate it 
ODOC rH FCC 2$ 40$: POPR #*A<R2,R3,R8,R10,R11> 
FO2D' 31 ED 38 BRW CNXSDEALL_MSG_BUF_CSB =; Deallocate message buffer and return 
FD 60 
FD 61 80$: ; One of the fol loving bugs: 
FD 86 3 Resource not found (R5 = 0) 
FD : Not marked as a directory entry (RSBSM_DIRENTRY not set) 
FD 64 : Not mastered by sending system (RSBSL_CSID not equal CSBSL_CSID 
FD 65 : and also not zero) 
4 68 3 Conversion or granted queue not empty (check queues) 
FD 68 BUG_CHECK LOCKMGRERR FATAL 
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-SBTTL VERIFYREMLKID = Verify remote lock id 


oe 
FUNCTIONAL DESCRIPTION: 


This routine vor} ttes a lock id sent by another system 
and converts it into a LKB address. 


; CALLING SEQUENCE: 


BSBW VERIFYREMLKID 
IPL must be at IPLS$_SYNCH 


INPUT PARAMETERS: 


RO Lock id on remote system 
R1 Lock id on this system 
; OUTPUT PARAMETERS: 
RO Completion code 
R6 Address of LKB 


; COMPLETION CODES: 


PUN 9 ODNAUE WN 0 OONIOA UNE Wi O 


S$S$_NORMAL Lock id was valid can converted to LKB address 
SS$_IVLOCKID Invalid lock id 


; SIDE EFFECTS: 


VERIFYREMLKID: 
MOVZWL 


ede, inate ba ba a na a Bn a na Bona a Bena a na mca na na na a Bena na na ona na, na nc a a a nc a an nk de | 
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R4 is destroyed 


This routine does two consistency checks. The first is that 

it verifies the lock id is valid via the sequence number check. 

If the lock id fails this check, then an error is returned to 

the caller as this is allowed in some cases and is fatal in others. 
However, if the lock id passes this check, then another check 

is made Fhet compares the remote lock id as sent by the remote 
erste with the remote lock id stored here in the LKB. If this 
check fails then it is immediately fatal as the first check should 
catch all races that cause lock ids to not match across ; stems. 
Also note that this second speck is not perfect in that should 
also Ghoet CSB addresses. This is considered unnecessary as the 
additional protection that check offers is small. 


R1,R6 

CMPL R6 G*LCKSGL_MAXID 
BctRU 408 

MOVL 


MOVL 
BGEG 40% 
CMPL «R11, LKBSL_LKID(R6) 
BNEG 408 


Put lockid index in R6 
Is the lock id too big? 


Yes 
ane may combine with next instr. 
Get LKB address 

Unallocated id 

Check pequesce number 

Not val 


7. 
Sete Sete Ge te Ge Se 


| 


VourboT VERIFYREALKID = Verity femote. sole fade MBSEE SBS P95a3:23 HEYEVORSRESBs¥Rcoce.manse "29° «3 , 
54 AG Ga i if 7 cor RO, LKBSL_REMLKID(R6) 5 Eheck gonete. lock id | 
50 0° FFC MOVZWL S*#SS$_NORMAL ,RO Success | 
FFF RSB | 
50 0000'8F HS } p ¢ 608 mOVZUL #SS$_IVLOCKID,RO i Invalid lock id | 
: é 508: BUG_CHECK INVLOCKID,FATAL; Invalid remote lockid | 

Bh Re 
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! Psect synopsis ! 
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PSECT name Allocation PSECT No. Attributes 

» 8 00000000 ( +? 90 ' 1) -) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABS$ 00000000 ( +3 BS NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$020 QOOOI00A ( 4 2 ( >} NOPIC USR CON REL LCL NOSHR' EXE RD WRT NOVEC BYTE 
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t Performance indicators ! 


ees ce ete acess eonsan naan 


ase Page aults me apse me 
Ph FE fault CPU Ti El d vi 
Initialization & 00:00: 0.05 00:00:01.15. 
sennens processing 108 8 :00: 8°38 B8: : §-8 
564 0:00: “ 0:01:19.0 
Synbol table sort 0 00:00:01.56 00:00:04.4 
s 2 414 BO: 00:82 - 88 bs TED 
Syabot table output 1 88005" 0:00:00.49 
Psect synopsis output 0 0:00:00.01 00:00:00.01 
Cross-reference output 3 B08 36° 4o Bp: 8000-08 
Assembler run totals 111 00:00:28.39 00:01:53.4 


Tbe working set Limit was 4609 pages. 

159344 bytes (312 pages) of virtual memory were used to buffer the intermediate code. 

There were 90 pages of symbol table space ducing $5 to hold 1471 non-local and 144 Local symbols. 
340 source Lines were read in Pass 1 ¢ Produc ing object records in Pass 2. 

1 pages of virtual memory were used to define & 9 macros. 
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! Macro Library statistics ! 


pees eee ees See eee ees see eee ea $ 


Macro Library name Macros defined 
$32 25DUA tpevelee JICLUSTER.MLB; 1 1 
JJLIB.MLB; 1 16 
Rta SVS IBISTARLET ALB: 2 g 
+3258 (all Libraries) 2 


1478 GETS were required to define 23 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:DSTRLOCK/OBJ=0BJ$:DSTRLOCK MSRC$:DSTRLOCK/UPDATE=(ENH$:DSTRLOCK) +EXECMLS$/LIB+LIB$:CLUSTER/LIB 
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